#!/usr/bin/perl -w

use strict;
use LWP::Simple;

my($newmessages, $oldmessages);
while(1){
        get("http://www.perlmonks.org/")=~/<!-- nodelets start here -->(.*)/s;
        $_=$1;
        my(@nodelet)=split(/<!--Nodelet Break -->/);
        foreach (@nodelet){
                if (/Chatterbox/){
                        s/\n//g;
                        s/\r//g;

                        while(m%(<b>&lt;</b>|<i>)<a href=[^>]*>([^<]*)</a>(<b>&gt;</b>)?(.*?)(</i>)?<br>%ig){
                                if(!defined($oldmessages->{"$2:$4"})){
                                        $newmessages->{"$2:$4"}=1;
                                        print "$2: $4\n";
                                }
                        }
                        last;
                }
        }
        undef $oldmessages;         
        $oldmessages=$newmessages;
        undef $newmessages;
        sleep(15);
}