while( my $line = <TEMPLATE> ) {
    $outputpage .= $line;
}

##</code><code>##

my @lines = <TEMPLATE>;
foreach my $line (@lines) {
    $outputpage .= $line;
}