Помогите пожалуйста составить регулярное выражение

Язык: Perl

Задача: есть $body с html-контентом, нужно найти

<div class="xxx">
произвольный контент который может содержать любые html теги включая <div></div>
</div>

после занести его в переменную $xxx, и вырезать из $body

помогите пожалуйста, заранее большое спасибо!

Примечание:
Также интересует как найти <p>обычный текст статьи с тегами (не <p>)</p> и на выходе получить <p><a href="#">обычный текст статьи.....</a></p>

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.