$Just = 'foo'; open(JAPH, $Just); @another = split(/\s/, <JAPH>); $Perl = ""; $h
acker =",";
$Perl =join " ",(substr $another[0],1),(substr $another[5],1),(substr $another[9
],1),(substr $another[12],1);
print $Perl . $hacker;