Select Code to Download

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

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

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