#!perl -wl

use strict;
use LWP::Simple;

my ($quotes, $who, $quote);

$quotes = get "http://parseerror.com/~pizza/futurama/quotes.txt";

while (($who, $quote) = $quotes =~ /^(\S.*?\.)\s+-- (.*)$/g) {
	$quote =~ s/\n//gs;
 	print "who: $who quote: $quote";
}