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

##</code><code>##

# sth; sth;
 {
      s/[\000-\037]\[(\d|;)+m//g;
 }
# sth else;