Select Code to Download

Select or download this
my @hold2 = map /(\w+\.bld)/, <OUTother>;

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

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

Select or download this
my $hold2 = join "|", map /(\w+\.bld)/, <OUTother>;
Select or download this
system "egrep -wn '$hold2' nbsssbs//esel/bld/*.bld nbsssbs/sbc/bld/*.bld nbssbts/btsc/bld/*.bld > $temp/otherblds2.txt" or die "egrep failed: $!";

Select or download this

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;

Select or download this

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;