#!/usr/bin/perl -w use strict; use LWP::Simple; use XML::RSS; use Date::Format; # These regexes taken from Dailystrips my $patternpre = " '1.0'); $rss->channel(title => 'User Friendly', link => 'http://userfriendly.org/', description => 'User Friendly the Comic Strip'); if ($page =~ /$pattern/ig) { $rss->add_item(title => time2str("CARTOON FOR %a %b, %Y",time), link => "$url", description => "<img src='$1' />"); } print $rss->as_string;