First write a sub to scan all the files - using File::Find for example. Then use something like

if($line =~ /<!--TABLE -->/ .. $line =~ /<!--\/TABLE -->/){
    add_the_line_to_result($line));
}
[download]

to get all the lines between the markers.