#!/usr/local/bin/perl -w

while (<>) {
	chop;
	(undef,undef,undef,undef,undef,undef,$entry) = split(/\t/);

	$_ = $entry;
	$_ =~ s/\s*<\/*[^\>]*>\s*//g;

	print $_ . "\n";
}