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