use Web::Query::LibXML qw();
my $w = Web::Query->new_from_html(<<'HTML');
…
HTML
$w->find('blockquote p')->each(sub {
my @parts = split ' ', $_->text;
if (@parts > 1) {
for my $p (reverse @parts) {
$_->after("$p
");
}
$_->remove;
}
});
print $w->as_html;
__END__
… ddd
eee
fff
…