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