my $prev;
while (<DATA>) {
	if (/^\s*$/ && $prev =~ /^\s*$/) {
		# Two blank lines in a row found
	}
	$prev = $_;
}