$ perl -ne 'm/(\w+\.bld)/ and print$1,$/ and last' your_file [download]
In reply to Re: parsing file by fruiture in thread parsing file by Sara