More efficient use of HTML::TokeParser::Simple perlquestion id:560199 Header 1 Header 2