$report =~ tr/-_.//d;  # underscores, dashes, and periods

##</code><code>##

tr/_-.//d

##</code><code>##

tr/\-_.//d