$flip=1;
while(<>){
  $flip=0 if /<\/body/i;
  print $_ if $flip;
  $flip=1 if /<body/i;
}
print "</body>\n</html>\n";