$file =~ s/[^a-zA-Z0-9_.]//g;