cat something | perl -le 'while (<>) {chomp; s/[\000-\037]\[(\d|;)+m//g; print ($_) };'