<?xml version="1.0" encoding="windows-1252"?>
<node id="96943" title="The Perl Diner" created="2001-07-16 03:17:27" updated="2005-08-11 12:02:30">
<type id="1584">
poem</type>
<author id="72812">
petdance</author>
<data>
<field name="doctext">
After going to the [Perl Film Festival] and listening to [WPERL, the Perl radio station],
a monk can get mighty hungry, so why not stop off at the Perl
Diner?

&lt;P&gt;
Sit down  and &lt;TT&gt;chomp&lt;/tt&gt; on some Perl delectables.
This is no time to work on your &lt;TT&gt;abs&lt;/tt&gt;.
(Be sure to wash your
hands before eating, and &lt;TT&gt;use SOAP;&lt;/tt&gt;)

&lt;CODE&gt;

# say grace
bless $this, "Meal";

%browns;

my @eggs;
for ( 1..10 ) {
    my ($x,$y) = rand @eggs, rand @eggs;
    @eggs[$x,$y] = @eggs[$y,$x];
}

sub sandwich;

@soup = split( //, $p );

chop $pork;

write KRISPIE;
write KRISPIE;
write KRISPIE;
&lt;/code&gt;


And no, we don't serve java.

&lt;HR&gt;
Highlight below for the answers....

&lt;FONT COLOR="white"&gt;
&lt;PRE&gt;
Hash browns

scrambled eggs

sub sandwich

split pea soup

pork chop

writes krispies (Don't hit me, please)
&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>
