regex - perlのネストされたタグの正規表現

Question

私はこの解決策を得ましたが、これは複数のスパン タグのようなネストされたタグでは機能しません。あなたは私を助けることができます？

message =~ s#
<
(?<tag>span|em|ul|ol)   
&gt;
(.*?)
&lt;
/
\k<tag>   
&gt;
#
<$+{tag}>  
$2    
</$+{tag}>
#xg;

Answer 1

未テスト:

use Web::Query qw();
Web::Query
    ->new_from_html($message)
    ->find('span,em,ul,ol')
    ->replace_with(sub { $_->html })
    ->as_html;