perl -0pe 's/([^ \n].*?)\n\n.*/$1/gs' file.txt