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