template.html:
<H>%%insert_here%%</H>
sldfjkdslkf
sdlfkjsdlf
sldkjfdslk
<B>%%insert_here%%</B>

data.txt:
hello

foo.html:
<H>hello
</H>
sldfjkdslkf
sdlfkjsdlf
sldkjfdslk
<B>hello
</B>


##</code><code>##

use strict;
my $htmlfile = "template.html";
my $datafile = "data.txt";
my $outfile = "foo.html";

my @cat1 = `/bin/cat $htmlfile`;
my $cat2 = `/bin/cat $datafile`;

open(OUTFILE, "> $outfile") || die "Can't open $outfile for write: $!";

foreach my $line (@cat1) {
     $line =~ s/%%insert_here%%/$cat2/ge;
     #maybe
     print OUTFILE "$line\n";
}

close(OUTFILE);