use strict;
use XML::Rules;

my $parser = XML::Rules->new(style => 'filter', rules => {
	_default => 'raw',
	p => sub { return $_[1]->{_content}},
});

$parser->filter(\*DATA);

__DATA__
<li>
  <p>
   Some <b>text</b>
  </p>
</li>