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