while ( my @a = each %FM ) {
    s/<([^>]|\n)*>/ /g for @a;
    print "$a[0] => $a[1]\n";
}