my $operator = '+';
my( $x, $y ) = (2, 5);
eval "print \$x $operator \$y, qq/\\n/;";