Seriously consider using one of the XML modules (XML::Twig is my personal fav) to do this rather than using a regex.

Use the strict pragma and the -w flag, move your regexen to the foreach loop, and be sure to escape any metacharacters in your regular expressions.

----
Coyote