Help for this page

Select Code to Download

Select or download this

sub inplace_uc {
   our $text; local *text = \$_[0];
   $text =~ tr/a-z/A-Z/;
}