Select Code to Download

my $hold2 = join "|", @hold2;

`egrep -wn '$hold2' nbsssbs//esel/bld/*.bld nbsssbs/sbc/bld/*.bld nbss
+bts/btsc/bld/*.bld > $temp/otherblds2.txt `;

open EGREP, "egrep -wn '$hold2' nbsssbs//esel/bld/*.bld nbsssbs/sbc/bl
+d/*.bld nbssbts/btsc/bld/*.bld |" or die "Pipe to egrep failed: $!";
my @othersblds = <EGREP>;
close EGREP;

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