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

##</code><code>##

use strict;
use warnings;

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

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

##</code><code>##

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