#!/usr/bin/perl
#
use LWP::Simple;

my $URL = 'http://quotiki.com';
my $quote, $author;

my $content = get ($URL);

if ($content =~ /randomQuoteTextLabel.*?&quot;(.*?)&quot;/si){
	$quote = $1."\n";
	if ($content =~ /randomQuoteAuthorLabel.*?author>(.*?)</si){
		$author = $1;
	}
	
	$quote.= "                -- $author\n" if $author;
	print $quote;
}
