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