Где найти скрипт, вытаскивающий новости с сайтов?

use LWP::Simple;

$page=get "http://www.xxx.ru/new_in_xxx.shtml";; print "debug: $page"; @m=split m!<td>! => $page; print "debug: ", join "\n\n\n======\n\n\n=====\n\n\n" @m;

дальше нужны регекспы

#!/usr/bin/perl -w

use LWP::Simple;

$page=get "http://www.xxx.ru/new_in_xxx.shtml";;
print "debug: $page";
@m=split m!<td>! => $page;
print "debug: ", join "\n\n\n======\n\n\n=====\n\n\n" @m;

дальше нужны регекспы для выделения блоков html кода
причем регекс легче написать, чем юзаьть приспособленный какойннить скрипт для новостей.