http://www.perlmonks.org?node_id=684475


in reply to Re^2: Wanted: humanly readable `script` output
in thread Wanted: humanly readable `script` output

#!/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);
This left behind a lot of funny things, which, to my eyes look like:
[00m, [01;34m, [01;35m, [m]0;
characters.