Select Code to Download

 
$Just = $0; open JAPH,$Just; @another = split /\s/, <JAPH>; $Perl = " 
+";  $hacker = ","; sub Just { substr shift , 1 };
$Perl = join $Perl, Just ($another[0]), Just ($another[5]), Just ($ano
+ther[10]), Just ($another[15]); print $Perl . $hacker,

$Just = $0; open JAPH,$Just; @another = split /\s/, <JAPH>; $Perl = " 
+";  $hacker =",";sub Just {substr shift,1};
for($hack = 15; $hack > -1 ; $hack -= 5){$hacker = Just($another[$hack
+]) . $Perl . $hacker};$hacker =~ s/\s,/,/s;
print Just $Perl.$hacker,