$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,