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