Select Code to Download

"Stopping saslauthd: \1b[60G[\1b[0;31mFAILED\1b[0;39m]\r"

use String::Escape qw( printable unprintable );
$okstring = printable($line);