while () { my $TheLine = $_; chomp $TheLine; if ($TheLine =~ /[^\n]*<\/html>/i) { $TheLine =~ s/([^\n]*)<\/html>/$1/i; print OUTPUT "$1\n"; } } close INPUT; close OUTPUT;