Select Code to Download

foreach(@inputs) {
    local *FILE;
...
    push(@regex,$regex);
    push(@filehandles,$ofh);
    }

my $i = 0;
while(<>) {
...
  }
  $i=0;
}

#!perl

...
        print $line if $line =~ $_->{regex};
        }
}