Re: Can of soda

drink $soda->pop;
get(job);

our @item = reverse (114, 101, 107, 99, 97, 104, 32, 108, 
114, 101, 80, 32, 114, 101, 104, 116, 111, 110, 97, 32, 116, 115, 117,
+ 74); local $my = reverse ")meti@\ ,rhc (pam tnirp";eval $my;
[download]

Comment on Re: Can of soda Download Code

Replies are listed 'Best First'.
Re^2: Can of soda by bageler (Hermit) on Jun 29, 2004 at 21:59 UTC
wouldn't that more appropriately be `$sodapop->drink;` [download]	[reply] [d/l]
Re^3: Can of soda by Trag (Monk) on Jun 29, 2004 at 23:00 UTC
Yeah, but better yet (IMHO) would be pop @soda; `our @item = reverse (114, 101, 107, 99, 97, 104, 32, 108, 114, 101, 80, 32, 114, 101, 104, 116, 111, 110, 97, 32, 116, 115, 117, + 74); local $my = reverse ")meti@\ ,rhc (pam tnirp";eval $my;` [download]	[reply] [d/l]

In Section Perl Poetry