@cat1 = "template.html"; #template html
$cat2 = "data.txt";      #data file contains html snipets

open(F, ">foo.html");    

foreach (@cat1) {

 s/%%insert_here%%/$cat2/ge;

}

print F @cat1;