c:\@Work\Perl\monks>perl -wMstrict -le
"print 'match with \r' if qq{ Directory of D:\\ \\Q\\X \r} =~ /.{20}\\[a-zA-Z]\s[\r\n]/;
 print 'match sans \r' if qq{ Directory of D:\\ \\Q\\X }   =~ /.{20}\\[a-zA-Z]\s[\r\n]/;
"
match with \r