$/='';$  Just =$0;open  JAPH,  $Just;@  another   =split
/\s+/s,  <JAPH>; $ Perl = " "; $ hacker =","; sub Just{}
;$hacker =join' ', @another[1, 5,10,15] , $hacker; print
                  Just.$Perl.$hacker,