#
# first we do the pop as stored in $s
#

pop(@_);

#
# the pop'ed command adds ";pop" to the end of each element of @_, then pops the next command off the @_ array
#

@_=map{s|$|$s|s;$_}@_;
pop(@_);

#
# set $_ to "4a4a2bfe01ac410d0105f4fd0dae30150dfab448f90208fa0d98" and pop
#

$_=substr(shift(@_),0,52);
pop(@_);

#
# Transform each pair of hex digits into a character and pop
#

s/../chr(hex$&)/eg;
pop(@_);

#
# pop
#

;;pop(@_);

#
# unpack each of the first 25 characters in $_ and unshift them on to the beginning of $_ and pop
#

unshift@_,(map{unpack'c',$_}split//)[0..25];
pop(@_);

#
# pop
#

;;pop(@_);

#
# take the last 2 elements from $_ and put them back on the beginning again. do this 24 times (so there should be 26 pairs of these commands in all). then pop
#

push(@_,(pop(@_),pop(@_))x24);
pop(@_);

#
# do these commands 26 times:
# take two chars from @_, add them, put them back on @_ and then remove and print them
#

unshift(@_,((shift(@_)+shift(@_))x2));
pop(@_);

print(chr(shift(@_)));
pop(@_);

#
# finally print the last character
#

print chr(shift(@_));
pop(@_);

#
# and do some more pop'ing
#

pop(@_);
pop(@_);