no strict; # The archtypical 'give me a page and I'll give you stuff from the page pointed # to by it' handler. require LWP::UserAgent; sub mrcranky { $html = shift; #print "($html)"; $html =~ / (.*?) /six; # TAKE ME OUT!!! #$html = $1; while( $html =~ s/