my $x = 3;
my $y = "2 * $x";
my $z = eval {$y};

print '$z is: ', $z, "\n";
print 'eval of $z is: ', eval $z, "\n";