Since I spoiled Abigail's JAPH in Usenet just before YAPC::NA last year I really hate to spoil a JAPH. The big secret (there's no print!) is in this line:

  `$_$:,>&$.`;
[download]

Alter that line so you print it with qq{`$_$:,>&$.`}; The rest is just encoding of the JAPH. And other details.