while (<OUT>) {
    push(@hold1, $1) && last if (m/(\w+\.bld)(?!.*?#)/);
}
my $hold11 = join(' ', @hold1);