>perl -wMstrict -le
"my $s = qq{a\nq};
 print $s =~ m'^a$q'    ? '   ' : 'NO ', 'match';
 print $s =~ m'^a$q'm   ? '   ' : 'NO ', 'match';
 print $s =~ m'^a$\nq'  ? '   ' : 'NO ', 'match';
 print $s =~ m/^a$\nq/m ? '   ' : 'NO ', 'match';
 print $s =~ m'^a$\nq'm ? '   ' : 'NO ', 'match';
"
NO match
NO match
NO match
NO match
   match