use strict;
use warnings;

use Data::Dumper;

print "Perl Version: $] \n\n";

my %FM = (
	'<ABCDE>' => '<XYZ>',
	'<abcde>' => '<xyz>',
	'<asdf>' => '<AsDf>',
	'<123>' => '<456>',
);

print Data::Dumper::Dumper \%FM;

for (%FM) {
    s/<[^>]*>/ /g;
}

print Data::Dumper::Dumper \%FM;