while ( $file =~ /(<[^>]*>)/g )
{
#	print "'$1'\n";
	$file =~ s/$1//g;
}