1
  2
  3 use feature 'say';
  4
  5 sub new_uc {
  6     @_ > 1
  7     ? map { uc } @_
  8     : uc $_[0] ;
  9 }
 10
 11 BEGIN {
 12     *CORE::GLOBAL::uc = *new_uc;
 13 }
 14
 15 say uc split(':',"one:two:three:four");
 16
 17 my $w = uc "a";
 18 say $w;