Actually, on my previous reply where I said $scalar I should have said @array. An array is just a list.

You've done some good work there. Again, I've made some changes. Not that they are better, it's just a matter of taste.

Using an array slice you don't need the loop. Of course the loop may be more obfuscating. It all depends on whether you want size or complexity.

$ 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,
[download]

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