Select Code to Download

my $regex = qr/$string/;

...
      $yep++;
   }
}

while (my $word = <DICT>) {
   chomp($word);
...
      $yep++;
   }
}