#!/usr/local/bin/perl

# remove newlines between <a> </a> tags


while(<>) {
	chop;
	$pos = 0;
	while(1) {
		$pos = index($_, "<", $pos);
		
		if (substr($_, $pos, 2) eq "<a") {
			$nest++;
		} elsif (substr($_, $pos, 4) eq "</a>") {
			$nest--;
		}
		
		if ($pos<0) {	# no more tokens, ok to print
			if ($nest>0) {
				print "$_ ";	# within tags: replace newline by space
			} else {
				print "$_\n";
			}
			last;
		}
		$pos++;
	}
}

if ($nest>0) {
	print STDERR "\n!!!\nWARNING: missing at least $nest </a> tag(s)\n!!!\n\n";
}
if ($nest<0) {
	$nest = -$nest;
	print STDERR "\n!!!\nWARNING: at least $nest </a> tag(s) too many\n!!!\n\n";
}