#!/usr/bin/perl -w
use strict;
open (INPUT,"file") or die "Unable to open input : $!";
open (OUTPUT,">output") or die "Unable to open outpu : $!";
select OUTPUT;
$\ = "\n";

my $foundstart;
while (<INPUT>) {
    chomp;
    next unless ($foundstart || /<html *>/i);    
    if (/<html *>/i && ! $foundstart) {
        $_ =~ s/^.*?<html *>(.*)$/$1/i;
        $foundstart++;
        next unless($_);        
    }
    if ($_ =~ m|</html *>|i) {
        $_ =~ s|^(.*?)</html *>.*$|$1|i;
        print if($_);
        last;
    }
    print;    
}
close INPUT;
close OUTPUT;