#!/usr/bin/perl
$_='print(chr(62+ -+1+ length))foreach(((m /(\S+)/g)))';eval;

print(chr(62+       <-Length:13 Ascii:61+13=74 (J)
-+1+                <-Length:4  Ascii:61+4=65  (A)
length))foreach(((m <-Length:19 Ascii:61+19=80 (P)
/(\S+)/g)))         <-Length:11 Ascii:11+61=72 (H)