$line =~ s/[^0-9a-z\x80-\xA5_:,!\?\.\* -]//ig;