Select Code to Download

use strict;
use Tie::File;
...
             @f2 = grep { if ($_ eq $word) { push @f3, $_; 0 }
                          else { 1 } } @f2;
             $size == $#f2; } @f1;

three
four
five
six
seven

nine
eleven
twenty
thirty
forty

one
two