You shame me. I'll have to pour over it before I make a more detailed comment, but here's my version of a similar thing. I didn't make it into a package, and it still has a few problems.
in reply to Get chatbox lines
I just have it run in a window in the background so that I can lookup anything I miss when I don't reload fast enough. Comments appreciated!
get("http://www.perlmonks.org/")=~/<!-- nodelets start here --
my(@nodelet)=split(/<!--Nodelet Break -->/);
print "$2: $4\n";