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