Select Code to Download

$name = "world";
$uc_name = uc($name);
print $uc_name,$/;

$name = "world";
$name =~ tr/[a-z]/[A-Z]/;
print $name, $/;