zentara,
If you change line 55:

#my ($text) = $html =~ /(<H1>START(?:.|\n)*<HR>)/mg;
my $text = $html;
[download]

You get results. I may update with a fix more in line with Roger's intentions if he doesn't first.

Cheers - L~R