$regexp = "m?" . <STDIN> . "?";


##</code><code>##

chomp( my $input = <STDIN> );
$regexp = qr/$input/;
if $line =~ ?$regexp? ...