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

##</code><code>##

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