This works.
print "'$_'" for split m[(?=^\w+?:)]sm, $data; [download]
In reply to Re^3: How to split into paragraphs? by BrowserUk in thread How to split into paragraphs? by jrw