Select Code to Download

#!/usr/bin/perl -w
use strict;
...
'J A P H !'}},sub{++($_="yot")},sub{(sub{@_[1,4,3,6,2,5,0]})->(split('
+',
"thnva'e"))})},sub{(sub {map{$_->()}@_[1,0]})->(sub{(sub{$_[0]->(), q;
+'t ;
})->(sub{'n'})},sub{no strict;Do})},sub{$/})

(
    sub {
...
) -> (
  1, 2, 3
);

(
    sub {
...
    sub{ 'Perl ' },
    sub{ 'hacker,' },
);

(
    sub {
...
    sub{ 'hacker,' },
    sub{ 'Perl ' },
);

(
    sub {
...
        )
    }
);

lc ref
    sub {
        '', reverse 'J A P H !'
    }