use strict;
use warnings;
$/=q{+\//};                # my silly scalar
for(@{[31,60,66,68,73]}){  # magic numbers
   ($-=>$_)=($_=>$!); # set $- to magic number and $_ to empty
    $_.=$/while--$-;  # append silly scalar to $_ <magic number> times
    $_=eval;          # eval it for an eight-digit number...
    s+......$++;      # whose first two digits
    push(@_,$_)       #   are the ASCII for '!', 'A', 'H', 'J', 'P'
}die map{chr}@_[eval join(q{,},3,1,4,2,0)]=>10;   # die with 'JAPH!\n'