Подскажите плиз, как perl'ом(или может awk) вырезать из большого html текста определеный кусок начинающийся, например, с <div id="result_box" dir="ltr"> и заканчивающийся на </div></td></tr><tr><td id="submitcell">
Спасибо!

• Вырезать строку perl'ом,phpcoder, 09:23 , 12-Мрт-08
  • Вырезать строку perl'ом,Sintezator, 10:34 , 12-Мрт-08

[c0der@xxx ~]$ cat TEST
23213

3213

<div id="result_box" dir="ltr">1
2
3</div></td></tr><tr><td id="submitcell">
dfd
fd
[c0der@xxx ~]$ paste -s -d' ' <TEST | sed 's|.*<div id="result_box" dir="ltr">\(.*\)</div></td></tr><tr><td id="submitcell">.*|\1|g'
1 2 3

>[оверквотинг удален]
>
>3213
>
><div id="result_box" dir="ltr">1
>2
>3</div></td></tr><tr><td id="submitcell">
>dfd
>fd
>[c0der@xxx ~]$ paste -s -d' ' <TEST | sed 's|.*<div id="result_box" dir="ltr">\(.*\)</div></td></tr><tr><td id="submitcell">.*|\1|g'
>1 2 3

Большое спасибо!