c:\@Work\Perl\monks>perl -wMstrict -le "my $line = qq{01234567\x0d}; print qq{It was $line!!!\n}; " !!!was 01234567