open(TEMPLATE, "template.html") or die $!;
my @xtemplate = ;
close (TEMPLATE);
my $xtemplate = join("", @xtemplate);
# get these values from cgi or whereever
$replace1 ="meep";
$replace2 = "narf";
# your markers
@markers = ("TITLE", "STUFF");
# your replacement values, arrayisized (ITS A WORD I TELL YOU!)
@replace = ($replace1, $replace2);
for ($i=0; $i<@markers; $i++)
{
eval ("\$xtemplate =~ s/\\*\\*\\*\\*$markers[$i]\\*\\*\\*\\*/$replace[$i]/g");
}
# your formatted result
print $xtemplate;