No. No way. Never ever (well not often) try to use simple rexen for parsing markup - life is too short to spend the months you would likley need to get the bugs out when others have already done it for you. For HTML see HTML::TreeBuilder. For XHTML or XML see XML::Twig.
See some of the answers to how to eliminate all html tags in a given string ??, and in particular the sample code shown in Re: how to eliminate all html tags in a given string ?? for some sample code and other related suggestions.
DWIM is Perl's answer to Gödel