My 2nd JAPH -
Thanks to all who gave my pointers and praise for my first JAPH. Hopefully I made this JAPH more entertaining. (Look Ma, warnings and strict)

#!/usr/bin/perl -w
use strict;
$_=q/s\/^(.*)\s$\/grep\//;y;\\;g;;tr;/; ;;s;s;j;x;y;^;|;;y;(.*);$1;;/(
+grep)/;y;$1;#;;y; ;a;;y;|#g;a p;;s;##;#;;$_=join(('i'),(split));$a=q;
+1,3;;s;a{$a};;g;$a=(split(',',$a))[0];s;g{$a};;g;s;i{$a};;g;s#psp##im
+sx;$_.=chr 0x0a;s|$|$a|;$a++;s{(\Qjr\E.{1,$a})\d(.+)}{$1$2}sm;$_=join
+"",(split '',)[0,1,3,2,4];y;re;ah;;print;
[download]

grep