Untitled

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

$content = get("http://trac.eta-beta-pi.net/wiki/wow?format=txt");
@wow = split /[\r\n]+/, $content;
shift @wow;
shift @wow;
$wow = $wow[rand @wow];

$wow =~ s/^\s*\**\s*//;

print qq~
<?xml version="1.0"?>
<!DOCTYPE rss PUBLIC "-//Netscape Communications//DTD RSS 0.91//EN" "http://my.netscape.com/publish/formats/rss-0.91.dtd">
<rss version="0.91">
<channel>

<item>
<title>~;

print $wow;
print qq~</title></item>

</channel>
</rss>
~;