#!/usr/bin/perl

use strict;
use warnings;
use HTML::TokeParser::Simple;

my $html = do{local $/; <DATA>};

my $p = HTML::TokeParser::Simple->new(\$html)
 or die "can't parse string: $!\n";

while (my $t = $p->get_token){
  printf "*%s*\n", $t->as_is;
}

__DATA__
<li><span class="title">Title</span> MATCH HERE </li>

##</code><code>##

*<li>*
*<span class="title">*
*Title*
*</span>*
* MATCH HERE *
*</li>*
*
*