$string = uc($string); #### $string =~ tr/a-z/A-Z/;