c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my $seq = qq{what is wrong with this\x0dline};
 print $seq;
 dd $seq;
"
line is wrong with this
"what is wrong with this\rline"