No BEGIN without END ;-)
BEGIN { print "r"; END { print " ";
END { print "P"; BEGIN { print "e";
BEGIN { print "h"; END { print "e";
END { print "r"; BEGIN { print "t";
BEGIN { print "o"; END { print "l";
END { print " "; BEGIN { print "n";
BEGIN { print "a"; END { print "H";
END { print "a"; BEGIN { print " ";
BEGIN { print "t"; END { print "c";
END { print "k"; BEGIN { print "s";
BEGIN { print "u"; END { print "e";
END { print "r"; BEGIN { print "J";
BEGIN { print ""; END { print ",";
}}}}}}}}}}}}} }}}}}}}}}}}}}
perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'