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