while ($HTMLLine=<HTMLFNH>) {
        chomp $HTMLLine;
        print "$HTMLLine\n";
    }

##</code><code>##

    while ($HTMLLine=<HTMLFNH>) {
        ... whatever you need to do for interpolation
        print $HTMLLine;
    }