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

##</code><code>##

$/='';$  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,

##</code><code>##