my $re = <STDIN>;
chomp ($re);
my $line = <STDIN>;
chomp ($line);
print "$line =~ /$re/\n";
if ( $line =~ /$re/ ) {
  print "match";
}
else {
  print "no match";
}