use Regexp::Common;
    m!$RE{balanced}{-begin => "<p>"}{-end => "</p>"}! && print;