# if an empty line, check the paragraph /^ *$/ b para # else add it to the hold buffer H # at end of file, check paragraph $ b para # now branch to end of script b # this is where a paragraph is checked for the pattern :para # return the entire paragraph # into the pattern space x s/\n/ /gp;s/.*//p;