$var =~ tr/0-9/A-J/;