my $s = "line1\r\nline2\r\nline3\r\n";
     print $s;
     $s =~ s/[\n\r]//g;
     print $s;