if (/\(.*)<\/body\>/i){ $body_temp = $_; $body_temp =~ s/(.*?)\(.*?)\<\/body\>/$2/i; chomp($body_temp);
$body = "\" . $body_temp . "\<\/body\>"; print OUTFILE $body . "\n"; $found_body = 1; }