$str =~ tr/A-Z//cd