Help for this page
$regexp = "m?" . <STDIN> . "?";
chomp( my $input = <STDIN> ); $regexp = qr/$input/; if $line =~ ?$regexp? ...