print $body =~ m{(<li.*?class="next".*?</li>)};