use strict; use warnings;
while(my $line=<FH>) {
  print(eval "qq($line)");
}