{ local $/; $_= } print "<<$1>>\n" while /(.*?(?:[\dZ]\)\.|pp\..*?))\r?\n?(?=[A-z]{2})/gs; __DATA__ ...(data as per OP)... __END__ <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <>