my $x = <STDIN>;
eval($x);

##</code><code>##

my $x = <STDIN>;
eval{ (my $s = "blah blah") =~ /$x/ }