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

##</code><code>##

$file =~ tr/a-zA-Z0-9_.//cd;