It looks like you may want to use negative lookahead, something like this:

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

This will only match if there is no "#" character in the string after ".bld".

-- Mike

--
just,my${.02}