open IN1,"cat $DATA_DIR/$INFILE_NAME |" or die "Can't open $INFILE_NAME: $!\n";
while ($line1 = <IN1>)
{
    chomp(my @numbers = $line1);
}
close(IN1);

my $rxFindTrans = do{
   local $" = q{|};
   qr{(@numbers)};
   };

open IN2,"cat $TransLogs/$FILE_NAME |" or die "Can't open $FILE_NAME: $!\n";
  
 local $/ = qq{</DU>\n};
    while( <IN2> )
    {
        s{.*(?=<DU>)}{}s;
        next unless m{$rxFindTrans};
        print qq{Found $1 in:\n$_};
        print qq{==================\n};
    }
    close(IN2);