my $ESC1 = "\x1B[0m"; my $ESC2 = "\x1B[0;0m"; my $content =~ s/\Q$ESC1\E//g; $content =~ s/\Q$ESC2\E//g;