my $string = '<TList.Bullet><TList.Item>sometext</TList.Item></TList.Bullet>';
print "Before : \'$string\'\n";

my %find_replace = (
		q[<TList.Bullet>] 	=> q[<ul>],
		q[</TList.Bullet>] 	=> q[</ul>],
		q[<TList.Item>] 	=> q[<li>],
		q[</TList.Item>] 	=> q[</li>],
);

for (keys %find_replace){
	$string =~ s/\Q$_\E/\#$find_replace{$_}/;
}

print "After : \'$string\'\n";

## Gives :
# Before : '<TList.Bullet><TList.Item>sometext</TList.Item></TList.Bullet>'
# After : '#<ul>#<li>sometext#</li>#</ul>'