open(FH,'<',$new_file) || die $!;
do {local undef $/;$test = <FH>};
close(FH);
while($test =~ /<!--\s+\d+nd table -->\s*(.*?)\s*<!--\s+\/\d+nd table -->/sgi){
  $out_put = $1;
  print "$out_put\n";
}