#!/usr/bin/perl
open( eval STDIN, do { (local $_ = $0) =~ s/\.tdy$//; $_ } );
$= = @ARGV = <>; # 16 lines
@h = split //, shift; # "#!/usr/bin/perl\n"
$- = @ARGV; # 15 lines
{
    local $" = 't';
    ( $b = "@{[@h[3,4]]}" ) =~ y~st~ts~; # "ust"
}
$h = ucfirst join '', @h[ -5 .. -2 ], $"; # "Perl "
&39; # "JHV\x9c\x9a\x99V\x89\x90\x95V\x97\x8c\x99\x931"
$b = $h[0] . $b . $"; # "Just "
print $b; # << "Just "
@h =
  split //, shift; # "open(eval STDIN,\$0);\$==\@ARGV=<> ;\@\n"
                   #  0123456789012345 6789 012 3456789012 3 4
@_ = map { lc } @h[
  $= - 3**2, # 16 - 9 == 7 -> a
  $= % ( $- / 3 ) + 2, # 16 % 5 + 2 == 3 -> n
  2**4 - $=, # 16 - 16 == 0 -> o
  ( 1 x 2 ) x 2, # 11 x 2 -> tt
  2, @h - 10, 3**( @h % 3 ) # 2 -> e, -10 -> r, 3 ** (35 % 3) == 9 -> " "
];
print @_[ 0 .. 3 ], 'h', @_[ 5 .. @ARGV / 2 ], $h, h; # << "another Perl h"
$h =~ s/^.//; # "erl "
$h =~ s/...$//; # "e"
@h = @h[ 0 .. ( ( ( length $ARGV[6] ) - 5 ) / 2 ) ]; # "open(eval STDIN,"
&{-14} && print $h[0]; # "abW`\x1aWhS^\x12EF6;\@\x1e" << "a"
&14; # "open(eval STDIN,"
print map lc, @h[ &1 + 6, 6 * 2 + &1 ]; # "qrgp*gxcn\"UVFKP." << "ck"
                                        #  012345678 9012345
                                        #         ^      ^
print $h, $h[1]; # << "er"
print @h[ &{-2} + 1 ]; # "open(eval STDIN," << ","
$ARGV[0]; # no-op

sub AUTOLOAD {
    ( ( $a = $AUTOLOAD ) ) =~ s
s.*::sss; # extract subroutine name, e.g. "39" for "&39;"
    $_ = chr( $a + ord $_ ) for @h; # add name as a number to @h
    $a; # return name, e.g. "39"
}