Select Code to Download

my $last_match=0;
while ($wholefile =~ /(pattern for table)/){
...
   # perhaps you meant $newfile.= "sub($1)";
   $last = $+[0];
}