Select Code to Download

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

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

eval($x)

'' =~ /$x/