Ok, I'm definately not an obfuscated expert, I may have missed something here. But...
shouldn't the regexp in the map be s/^[^>]+>\s*//; instead?

And you've got $n~= in the last line. $n=~ methinks.