$match = <STDIN>;

##</code><code>##

$_ =~ /$match/;