Select Code to Download

# Replace everything except non-controls, CR and LF.
$msg =~ s/[^[:^cntrl:]\r\n]+/ /g;