my @hold2 = map /(\w+\.bld)/, ; #### my $hold2 = join "|", @hold2; `egrep -wn '$hold2' nbsssbs//esel/bld/*.bld nbsssbs/sbc/bld/*.bld nbssbts/btsc/bld/*.bld > $temp/otherblds2.txt `; #### my $hold2 = join "|", map /(\w+\.bld)/, ; #### system "egrep -wn '$hold2' nbsssbs//esel/bld/*.bld nbsssbs/sbc/bld/*.bld nbssbts/btsc/bld/*.bld > $temp/otherblds2.txt" or die "egrep failed: $!"; #### open EGREP, "egrep -wn '$hold2' nbsssbs//esel/bld/*.bld nbsssbs/sbc/bld/*.bld nbssbts/btsc/bld/*.bld |" or die "Pipe to egrep failed: $!"; my @othersblds = ; close EGREP; #### open(OUTother, "<", "C:/Perl/MyScripts/tmp.txt") or die "Couldn't open file: $!"; my $hold2 = join "|", map /(\w+\.bld)/, ; close OUTother; open EGREP, "egrep -wn '$hold2' nbsssbs//esel/bld/*.bld nbsssbs/sbc/bld/*.bld nbssbts/btsc/bld/*.bld |" or die "Pipe to egrep failed: $!"; my @othersblds = ; close EGREP;