1#!/usr/bin/perl -w
2$wikiFlag=0;
3while(<>) {
4  if(/<\/body/i) {$wikiFlag=0;}
5  if($wikiFlag) {print;}
6  if(/<body/i) {$wikiFlag=1;}
7}
8