Select Code to Download

<p..><some more tags> --- TITLE --- WORDS WORDS WORDS WORDS WORDS WORD
+S<BR>
<object...><a lot more tags></object>
</p>

use strict;
use HTML::Parser;
...
        $objtext .= $text;
    }
}