$str =~ tr/0-9/A-Z/;