@cat1 = `/bin/cat template.html`; #template html
$cat2 = `/bin/cat data.txt`;      #data file contains html snipets

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

  foreach (@cat1) {

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

  }

  print F @cat1;