You're on the right track, though I suspect that the +? might not be doing what you want it do. It would help to show us a few representative records.

Would something like

while ( /^((?:DES|TN).*?(?:DATE|ZONE)[ A-Z0-9]*)$^$/sm ) {
    # $1 is the matched record, without the blank line
}
[download]