my $x = "hello to\nyou";
    if ($x =~ /t.*you/) {print "will not match"}
    if ($x =~ /t.*you/s) {print "matches"}