Регулярные выражения

[Alex V. White]

Вытягиваю таблицу фьючерсов с сайта при помощи модуля LWP::Simple. Страницу целиком тяну нормально, а вот потом мне надо вытянуть из нее одну таблицу (там их много). Помогите составить выражение для этого.
Страница которую я вытягиваю имеет вид:

потом всякая пурга
ЭТУ ТАБЛИЦУ НАДО ВЫТЯНУТЬ
















и так далее
в конце таблицы

NEW YORK FUTURES 04.06.03	HIGH	LOW	LAST	CHANGE
2003 July	50,05	48,15	49,64	+ 101

Подскажите плз! как эту таблицу полностью смыкануть.

[mike]

Если исходник в $_:

Код: [Выделить]


($tbl) = /().)*\\bNEW\\sYORK\\sFUTURES\\b.*?<\\/table>)/is;


PS. Смайлики в регэкспе - это супер
- это двоеточие и скобка.

[Alex V. White]

Что то не то делаю, не выходит.
Первая строка таблицы:

без перевода строки - одна строка.
последняя:

 

 

 
это срока целиком.
Исходник находится в $doc

[Alex V. White]

В последней строке между

стоят   - символя пробелов.
Мне бы отловить то что между и , далее я ее чуток переформатирую и напечатаю print "$doc

[mike]

После закрывающего тега почему-то вставился пробел. Думаю, стоит убрать.

Если исходник в $doc, то
($tbl) = $doc =~ /]*>((??!<\\/table>).)*\\bNEW\\s+YORK\\s+FUTURES\\b.*?)<\\/table>/is;

[Alex V. White]

Спасибо БОЛЬШОЕ!
Уже вышло.
Буду форматировать.