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

##</code><code>##

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

##</code><code>##

eval($x)

##</code><code>##

'' =~ /$x/