open HTML, ">html.txt" or die "couldn't open html.txt: $!\n";

##</code><code>##

foreach my $line (@html) {
    $html .= $line;
}