#!/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##imsx;$_.=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;