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