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

##</code><code>##

$Just = $0; open JAPH,$Just; @another = split /\s/, <JAPH>; $Perl = " ";  $hacker =",";sub Just {substr shift,1};
for($hack = 15; $hack > -1 ; $hack -= 5){$hacker = Just($another[$hack]) . $Perl . $hacker};$hacker =~ s/\s,/,/s;
print Just $Perl.$hacker,