Select Code to Download

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

     line1
     line2
     line3
     line1line2line3

   /s simply allows . to match end-of-line chars 
       anywhere in the string (if needed)
   /m simply allows ^ and $ to match begin/end
...
   \r will both be found (if present) without
       resorting to /s or /m