open(TEMPLATE, "<template.html") || die $!;
my @xtemplate;
@xtemplate = <TEMPLATE>;
close (TEMPLATE);


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