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