1
  2 use feature 'say';
  3 use autobox ;
  4
  5 sub ARRAY::uc { return map { uc } @{$_[0]};   };
  6 sub SCALAR::split { [ split $_[1], $_[0] ] ; };
  7
  8
  9 say "one:two:three:four"->split(':')->uc();