Select Code to Download

sub fancy_map {
  my ($opt, $list) = @_;
...
    }
  } @{$list};
}

c:\@Work\Perl\monks>perl -wMstrict -le
"my @list = qw(foo bar baz boff quux);
...
original: foo bar baz boff quux
returned: OOf ARb AZb OFFb UUXq
original: OOf ARb AZb OFFb UUXq