Select Code to Download

use strict ;my@f; use warnings ;
open 0;$/= \11;my $i= 0; while (
<0>){chop; push@{$f [ $i]},$_;$i
...
$l-> [$_], $m-> [$_], $r-> [$_],
.                               
write;}