{
open(PAGE, "$PageToParse.html") or die "Could not open: $!\n";
local $/;
while (<PAGE>) {
  m#<TITLE>(.*)</TITLE># and $title=$1;
  s#^.*?</TABLE>##s;
  s#<!-- nodelets start.*##s;
  print $_; ## Or to a new file, etc.
}
}