What's wrong with this scripts logic?

2025-04-01

Any help would be appreciated:

$tmpcntr = 1;
open(TEMPLATE, $template_file);
while(<TEMPLATE> )

{
$buffer .= $_;
if ($_ =~ /<\/BODY/i){$_ .= "<a href=\"http://d.com\">dot</a>";$buffer .= $_;}
}

close(TEMPLATE);
$temp = "<a href=\"http://d.com\">dot</a>";
if ($buffer =~ /<\/BODY/i){ $bufer .= $temp;}