Select Code to Download

             ____________
<list> ---> | filter-code| --> <modified list>
             ------------

@n = map{ split; 
          $count += $_[2] =~ tr/1/1/;
...
100 5 91111111111111111 1
3 4 -6 1
8888888 8 191 1