my $hold2 = join "|", map /(\w+\.bld)/, <OUTother>;