#!/usr/bin/perl
use strict;
use warnings;

open(FILE,"<","typescript") || die;
while (my $line=<FILE>) {
    $line=~s/.\x08//g;
    $line=~s/\p{IsC}//g;
    print "$line\n";
}
close(FILE);

##</code><code>##

 [00m, [01;34m, [01;35m, [m]0;