#!/usr/bin/perl
# doesn't work with tables that don't use </td> and </tr> yet
$_ = join '',<STDIN>;
tr/\n\r \t/ /s;
while (s/.*?<tr.*?>//i) {
	s/(.*?)<\/tr>//i || die "missing </tr>";
	$row = $1;
	$not_first = 0;
	while ($row =~ s/.*?<td.*?>//i) {
		$row =~ s/(.*?)<\/td>//i || die "missing </td>";
		if ($not_first++) { print "\t"; }
		print $1;
	}
	print "\n";
}