#! perl -slw
use strict;

my $data = do{ local $/; <DATA> };

print "'$1'" while $data =~ m[
	(
		^(?:DES|TN)
		.+?
		(?:^DATE|ZONE)
		.+\n\s*(?:\n|$)
	)
]gsx;