my(@all, $cur);
while (<DATA>) {
	if ($_ =~ /\ADELIMITING_TEXT\Z/) {
		push @all, $cur;
		$cur = "";
	} else {
		$cur .= $_;
	}
}
push @all, $cur;