my $body = $the_html_string;
$body =~ s/^.*?(<body.*?>)/$1/sgi;