$xtemplate = join("", @xtemplate);
@template = $xtemplate =~ /^(.*?)\*{4}filename.ext\*{4}/sg;
push (@template, $xtemplate =~ /\*{4}filename.ext\*{4}(.*?)\*{4}title\*{4}/sg;
push (@template, $xtemplate =~ /\*{4}title\*{4}(.*?)\*{4}headings\*{4}/sg;
push (@template, $xtemplate =~ /\*{4}headings\*{4}(.*?)/sg;



for ($i=0; $i <= (@filenames-1); $i++) {
	open(FILE, ">@filenames[$i]") or die;
	print FILE QQ(@temlate[0] @title[$i] template[1] @heading[$i] template[2] @stuff[$i] @template[3]);
	close(FILE);
	}