Perhaps you want the /s flag on your tr/// to squash repeated transliterated characters? See perldoc perlop for more details.

Update: And perhaps tr/A-z/_/cs might accomplish what you're trying to do a bit more readably (not exactly the same as the original but probably close enough for this application).