my ($html_body) = ( $html_data =~ /<body.*?>(.*?)<\/body>/gsi );