if($content=~m|<BODY.*?>(.*?)</BODY>|si) {
 $content = $header_html . $1 . $footer_html;
 $content =~ s|%title%|$title|;
 &save_file("$fullpath",$content);
 print "Completed\n";
 } else{
 print "Couldn't parse\n";
 }