$Just = 'foo'; open JAPH, $Just; @another = split /\s/, <JAPH>; $Perl = ""; $hac
ker =","; sub
Just {  substr shift, 1 };   $Perl = join " ", Just ($another[0]), Just($
another [6]),  Just($another [11]),  Just ($another [14]); print $
Perl    .$
hacker,