#!/usr/bin/perl
my $calc = "@ARGV";
while (<STDIN>) {
    eval $calc;
    s/<(.*?)>/
        $_r = ${$1} || $ENV{$1};
        defined $_r or $warned{$1}++ or warn "? $1\n";
        $_r;
    /ge;
    print;
}