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