$bulletin_page_html =~ s/\A\s+//s;
    $bulletin_page_html =~ s/\s+\Z//s;

    if ($bulletin_page_html =~ /<[A-Za-z0-9_]+\s*[^>]*?>executive\s*summary/is)
{
        $bulletin_page_html =~ s/\A.*(<[A-Za-z0-9_]+\s*[^>]*?>executive\s*summa
y)/$1/is;
        $bulletin_page_html =~ s/\A<([A-Za-z0-9_]+)\s*[^>]*?>executive\s*summar
.*?<\s*\/\s*\1\s*>\s*//is;
        $bulletin_page_html =~ s/<b\s*[^>]*>.*\Z//is;
        $bulletin_page_html =~ s/<\/div>//isg;
        $bulletin_page_html =~ s/<div>//isg;
        $bulletin_page_html =~ s/<\/div>//isg;
        $bulletin_page_html =~ s/<div\s+[^>]*>//isg;
        if ($bulletin_page_html =~ /<\/p>/is) {
            $bulletin_page_html =~ s/\A.*?(<p)/$1/is;
            $bulletin_page_html =~ s/(\A.*)<\/p>.*\Z/$1/;
            $bulletin_page_html =~ s/\A\s+//s;
            $bulletin_page_html =~ s/\s+\Z//s;
            $bulletin_page_html =~ s/\A<p.*?>//is;
            @summary_lines = split /\s*<\/p>\s*<p\s*[^>]*?>\s*/is, $bulletin_pa
e_html;
        } elsif (($bulletin_page_html =~ /<p>/is) ||