#!/sw/bin/perl -w
# Parse quotes from boogle.com
# By: Ventz Petkov
# Date: 7-14-05
use strict;
use LWP::Simple;
my $url = "http://boogle.com/index.html";
my @file = split(/\n/, get($url));

foreach (@file) {
    if ($_ =~ /^(\s+)<td>.*<blockquote>/) { 
        s/<td>//; s/<blockquote>//;
        s/^\s*//; chop($_); print "$_\n";
    }
}
