Select Code to Download

my $line = "Stopping saslauthd: \x1b[60G[\x1b[0;31mFAILED\x1b[0;39m]\r
+";

use strict;
use warnings;
...
my $noesc = $line;
$noesc =~ s/(\e\[\d+G|\e\[\d+(;\d+)*m|\r*)//g;
print "noesc = '$noesc'\n";

$noesc =~ s/(\e\[\d+G|\e\[\d+(;\d+)*m|\r*)//g;