Select Code to Download

while ( my $input_text = <INP> ) { ....

while ( my $line = <INP> ) { 
    chomp $input;
...
        $queries++;
    }
    ...

# instead of ... 
        else
...
            my $pair = join ',', grep { defined } ( $fnum, $snum );
            $connectiontext .= $pair . '|';
        }

push @allPairs, grep { defined } ( $fnum, $snum );

...
# or a trailing fnum

my @matches = grep ( scalar @$_ == 2 && $_->[1] == $fnum } @allpairs