$myline =~ tr/\x80-\xff//d;

##</code><code>##

$myline =~ s/[\x80-\xff]/ /g;