while(my $line =~ $lwp->get("www.foo.com") ){
   #parser $line
}