#!/usr/bin/perl -w
use strict;
(sub{print map{$_->()}@_[3,1,2,0,4]})->(sub{no strict;q;read!;},sub{(sub{
map{$_->()}@_[2,1,0]})->(sub{'t '},sub{(sub{$_[0]->(),'s'})->(sub {'u'})},
sub {'t','r'})},sub{(sub{map{$_->()," "}@_;})->(sub{lc ref sub{'', reverse
'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 {
print "@_"
}
) -> (
1, 2, 3
);
##
##
(
sub {
print map {
$_->()
} @_;
}
) -> (
sub{ 'Just ' },
sub{ 'another ' },
sub{ 'Perl ' },
sub{ 'hacker,' },
);
##
##
(
sub {
print map {
$_->()
} @_[1,0,3,2];
}
) -> (
sub{ 'another ' },
sub{ 'Just ' },
sub{ 'hacker,' },
sub{ 'Perl ' },
);
##
##
(
sub {
print map { $_->() } @_ }
) -> (
sub {
(
sub { map { $_->() } @_ }
) -> (
sub { 'J' },
sub { 'A' }
)
},
sub {
(
sub { map { $_->() } @_ }
) -> (
sub { 'P' },
sub { 'H', '!' }
)
}
);
##
##
lc ref
sub {
'', reverse 'J A P H !'
}