#!/usr/bin/perl # use LWP::Simple; my $URL = 'http://quotiki.com'; my $quote, $author; my $content = get ($URL); if ($content =~ /randomQuoteTextLabel.*?"(.*?)"/si){ $quote = $1."\n"; if ($content =~ /randomQuoteAuthorLabel.*?author>(.*?)</si){ $author = $1; } $quote.= " -- $author\n" if $author; print $quote; }