$start = 0;
     while (($beg = index($htmlpage, '<table', $start)) > -1)
     {
     
          $end = index($htmlpage, '</table>', $start)+8;
          push(@somearray, substr($htmlpage, $beg, ($end-$start)));
          $start = $end;
     }