#!/usr/bin/perl -p
BEGIN {
	$skip_nl = 1;
}
chomp;
if (m{^</}) {
	# skip newline before
	$skip_nl = 0;
} elsif (m{^<}) {
	print "\n" if !$skip_nl;
	# skip newline after
	$skip_nl = 1;
} else {
	print "\n" if !$skip_nl;
	$skip_nl = 0;
}

$prev = $_;