$line =~ s/([^\011\012\015\040-\176])//g;

##</code><code>##

          $line =~ tr/\011\012\015\040-\176//cd;