Help for this page

Select Code to Download


  1. or download this
    sub lowercase {
   wantarray ? (map { lc } @_) : lc(shift);
}
  2. or download this
    sub lowercase {
    ( wantarray ? sub{@_} : sub{shift} )->(
        map { lc } @_
    );
}
  3. or download this
    #!/usr/bin/env perl

...

say for lowercase('Alice', 'Bob');
say scalar lowercase('Carol', 'Dave');