Select Code to Download

while (<F1>) {
    open (F3, "<new3.txt") or die;
...
    print F2 if (/$lines/);
    close (F3);
}

my $lines = <F3>;

    open my $SEARCH_ITEMS, "<", "new3.txt") or die "Could not open new
+3.txt $!";;
    my @lines = <$SEARCH_ITEMS>;