Select Code to Download

while (my $line = <INFILE>) {
    my @words;
...
    }
    print $line;
}

    my ( $key, $val ) = /^(\d+)\s+([\w-]+)/;
   ...
    my $pattern = quotemeta "\b([$cc]{$min,$max})\b/";