Select Code to Download

  2 package MyArray;
  3 use base qw(autobox);
...
 19
 20 say "one:two:three:four"->split(':')->uc();

  1
  2 use feature 'say';
...
  7
  8
  9 say "one:two:three:four"->split(':')->uc();

  1
  2
...
 16
 17 my $w = uc "a";
 18 say $w;