open(OUTNbssbase, "< $tempDir/nbssbaseblds.txt") || die "Could not open file2 : $!\n"; my @hold1; while () { push(@hold1, $1) && last if (m/(\w+\.bld)/); } my $hold11 = join(' ', @hold1); close(OUTNbssbase) or die("Can't close file: $!"); #### nbssbase/acn/bld/libacnsGH040.bld:acnss.cxx nbssbase/acn/bld/libacnsGH040btsc.bld:acnss.cxx nbssbase/acn/bld/libacnsGH040eel.bld:acnss.cxx