$str =~ tr/a-zA-Z.//dc;

##</code><code>##

$str =~ s/_\././;