DB<100> $str="\n blah \n"

 blah 

  DB<101> $str =~ /blah/
 => 1

  DB<102> $str =~ /^.*blah.*$/

  DB<103> $str =~ /^.*blah.*$/s
 => 1