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