$line=~ s/[^!-~\s]//g; 

##</code><code>##

 $line =~s/[^[:ascii:]]//g;