$ perl -ne 'm/(\w+\.bld)/ and print$1,$/ and last' your_file