$string =~ tr/A-Za-z0-9.-_//cd;

##</code><code>##

$string =~ s/[^A-Za-z0-9._-]//g;