Правильное составление парсера с регулярками

$str = file_get_contents('http://torres90.tmweb.ru/donor.php');
 
$trName = array(); // массив имен столбцов таблиц
$haystack = array(); // массив данных таблиц
 
if (preg_match_all("~<table[^>]*>\s*<caption>\s*([a-z]+)\s*</caption>(.+?)<tbody>(.+?)</tbody>.*?</table>~is", $str, $matches)) {
 
  /* найдены таблицы */
  foreach ($matches[3] as $k => $table) {
 
    // имена столбцов таблиц (если нужно)
    if (preg_match_all("~(<div class=['\"]D-ib[^'\"]*['\"]>([^<]*)</div>|<th[^>]*>([a-z\s]+)</th>)~is", $matches[2][$k], $th)) {
      foreach ($th[2] as $k2 => $name) {
        $thName[$matches[1][$k]][$k2] = $name ? $name : $th[3][$k2];
      }
    }
 
    /* разбор таблиц */
    if (preg_match_all("~<tr[^>]*>(.+?)</tr>~is", $table, $tr)) {
      foreach ($tr[1] as $k2 => $td) {
        if (preg_match_all("~<td[^>]*>.+?>([a-z0-9\.%]+)</[^>]+>.+?</td>~is", $td, $data)) {
          // добавляем разобранную в массив строку в общий массив данных
          $haystack[$matches[1][$k]][$k2] = $data[1];
        }
      }
    }
  }
}
print_r($haystack);

preg_match_all('/<div class="r\-table\-liga">(.+?)<\/div>/', $str, $arr);
var_dump($arr[1]); // массив искомого