<?xml version="1.0" encoding="windows-1252"?>
<node id="95029" title="WPERL: The Perl radio station" created="2001-07-09 16:22:32" updated="2005-08-11 11:45:48">
<type id="1584">
poem</type>
<author id="72812">
petdance</author>
<data>
<field name="doctext">
I love music, and I spend a lot of time listening to
WPERL, the Perl radio station.  (Usually I listen to it
when I'm going to [The Perl Film Festival])
&lt;P&gt;
Here are some of the artists that are played on WPERL:

&lt;CODE&gt;
=head1 Radio

use Cache::Cache;
my $johnny = new Cache;
my $june_carter = new Cache;
my $roseanne = new Cache;

/night/../r/
&lt;/CODE&gt;

And some of my favorite songs
&lt;CODE&gt;
speak() if 0;
(by undef $doubt;)

print '&lt;font color="#000000"&gt;Back&lt;/font&gt;';

$drink{$_} = 1 for ( qw( bourbon scotch beer ) );

my $greatest = undef;
for ( @love ) {
    $greatest = $_ if $_ &gt; $greatest;
}
print $greatest;
&lt;/CODE&gt;

Has anyone else listened to WPERL?


&lt;HR&gt;
&lt;SMALL&gt;
Highlight below for answers:
&lt;FONT COLOR="white"&gt;
&lt;PRE&gt;
Artists:
Radiohead
Johnny Cash, June Carter Cash, Roseanne Cash
Night Ranger

Songs:
"Don't Speak" by No Doubt
"Back In Black"
"One Bourbon, One Scotch, One Beer"
"The Greatest Love Of All"
&lt;/PRE&gt;
&lt;/FONT&gt;

&lt;P&gt;
xoxo,&lt;BR&gt;
Andy&lt;BR&gt;
--&lt;BR&gt;
&amp;lt;megaphone&amp;gt;
Throw down the gun and tiara and come out of the float!
&amp;lt;/megaphone&amp;gt;

</field>
</data>
</node>
