Help for this page

Select Code to Download


  1. or download this
    $msg =~ s/[[:cntrl:]]+/ /sg; #(remove CR LF, etc. ORIGINAL LINE)
  2. or download this
    $msg =~ s/[\n\r]/[~^]/sg;
$msg =~ s/[[:cntrl:]]+/ /sg; #(remove CR LF, etc. ORIGINAL LINE)
$msg =~ s/[~^]/[\n\r]/sg;