in reply to Translating letters

You could always use ranges if you think it looks better.

tr/A-J/0-9/

In Section Seekers of Perl Wisdom