my $p_token = Regexp::Token::HTML->create_token('<p name="" class="">');
 my $p_tag   = Regexp::Token->create($p_token);
  
 $html = <<END_HTML;
 <h1>testing</h1>
 <p name="goo" class="ber"> <p CLASS=baz name='easy'> 
 <h1>end test</h1>
 END_HTML
 my ($result) = $html =~ /((?:$p_tag )+)/;

 my $two_tags = q{<p name="goo" class="ber"> <p CLASS=baz name='easy'> };
 is($result, $two_tags, '... and we should be able to capture token text');