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