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