while (my $line = <>) { print eval $line; }