ERRNO JAPH

$x=sub{@_=90;$_[@_]=$_[$#_],$_[$#_]=$$_[/^$/]?$_[$#_]+$$_[/^/]:$_[$#_]-$$_[/$/]
for([0,20],[0,36],[1,73],[0,64],[0,6],[1,87],[0,108],[1,91],[0,84],[1,19],[1,8]
,[0,7],[1,14],[0,15],[1,8],[1,22],[0,29],[0,20],[1,14],[0,1],[1,70],[0,64],[1,8
],[0,42],[1,122]);@_};@==$x->();$@=q;\\;.q.x..(($=[0]-2)-int$]*2),$@=~s/(.+)/"\
\"$1\""/ee,$@=q.\\..$@,$~=join$@,'',($=[11]-int$]),($@.$=[16])x2,do{$,.=$@.####
substr($=[20],++$|,$|).$_ for(qw.e f.)},$,;$~=~s/(\Q$@\E){2,}/$1/g;$x = eval qq
;"$~";;$x =~ s/\W+//g;$x.=q;:;x2;@|=keys(%!);print chr eval "$x$|[$_]"for+(@=);