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


in reply to Re: Tell me how it works!
in thread Tell me how it works!

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

[download]

Update: Added missing "$text =~".

In Section Seekers of Perl Wisdom