(my $noesc = $line) =~ s/\e\[[^a-zA-Z]*[a-zA-Z]|\r//g;