$file =~ m{<TABLE \s+ ([^>]*+)>
           (
              [^<]*+ (?: < (?!/TABLE>) [^<]*+ )*
           )
           </TABLE>}x;