As all good monks know, using strictures is essential for the maintenance programmer who has to deal with the code long after you've departed. So I've taken the liberty of correcting this oversight;)

%->JAPH;use strict;$_=~s$$7011222324555617183920211233642536371829:-)
1011522314252647181920312213242516373839101112538425261748:(291021 $;
$;<=0x666;map{ split//;$a.=$_[1]x$_[0];} split /(..)/;$;=eval "\"0\",
length(\$_)+33;";my $s=reverse(0x258)+oct($;);my @x; my $l;map{my $q; 
my $og;if(($_-$l)<0){$l=-1};$x[$;++/6].=$_-$l;if(length($x[($;-1)/6])
==6){my @f=split//,$x[($;-1)/6];$f[0]&&($q=-1)||($q=1);foreach my $ui
((7-6)...(30/6)){$og+=2**($ui-1)if$f[$ui];}$og*=$q;$s+=$og;print chr(
$s);}$l=$_;}split//,$a;
[download]