$x="hello\n\rWorld";
$k=chr(13);
$x=~s/$k//g;
print $x;