( my $nocolorsline = $line ) =~ s/\033\[[\d;]*[a-zA-Z]//g;
  ( my $nocolorsline = $line ) =~ s/\e\[[\d;]*[a-zA-Z]//g;
  ( my $nocolorsline = $line ) =~ s/\Z\[\d;]*[a-zA-Z]//g;
  ( my $nocolorsline = $line ) =~ s/\x1b\[[\d;]*[a-zA-Z]//g;