while ( my ($k,$v) = each %FM ) {

	$k =~ s/<([^>]|\n)*>/ /g ;
	$v =~ s/<([^>]|\n)*>/ /g ;
}