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

##</code><code>##

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

##</code><code>##

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