open (TXTFILE, "C:/My Documents/carlist/carlist_test/template/ccheader.html");
$header_html = <TXTFILE>;
close(TXTFILE);

open (TXTFILE, "C:/My Documents/carlist/carlist_test/template/ccfooter.html");
$footer_html = <TXTFILE>;
close(TXTFILE);

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";
 }