perl: regex для текста с переносами

Хочу запарсить текстовый файлик примерно с таким содержанием:

3
Никто не обнимет необъятного.

4
Нет столь великой вещи, которую не превзошла бы величиною ещё большая. Нет вещи
столь малой, в которую не вместилась бы ещё меньшая.

5
Смотри в корень!

Хочу получать цифры (номер главы) + текст (текст набран с переносами)

Подскажите регу, пожалуйста.

Примечание:
Tutor,


$ ./script.pl
glava: 3
text: Никто не обнимет необъятного.

4
Нет столь великой вещи, которую не превзошла бы величиною ещё большая. Нет вещи
столь малой, в которую не вместилась бы ещё меньшая.

5
Смотри в корень!

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

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

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