http://www.perlmonks.org?node_id=22639


in reply to What is the best way to capitalize a string?

A couple (better?) ways come to mind:
$string = uc($string);
$string =~ tr/a-z/A-Z/;