my $html = do { local $/ = undef; <DATA> };
$html =~ s/<!-- rem_me --><\/li>/<ul>/sig;
print($html);

__DATA__
</a>
<!-- rem_me --></li>
<li>