my $re = <STDIN>;
chomp $re;
$re = quotemeta $re;
print "it worked" if $foo =~ /$re/;