Select Code to Download

grep -l 002389983 * | xargs grep -l 29994339499

open my $fh, "<", $File::Find::name or die;
my ($f1, $f2);
...
if ($f1 && $f2) {
    ... Both patterns found ...
}