in reply to Reeses® Cup?

while (<REESESCUP>) {
    my $weight += (tr/(peanut butter|chocolate)//);
}

[download]

Replies are listed 'Best First'.
RE: RE: Reeses Cup
by Fastolfe (Vicar) on Nov 02, 2000 at 00:48 UTC
    It's a good thing that the weight you gain disappears with each bite.

    (For those that don't get it, due to his use of my, $weight goes out of scope for each loop...)

[reply]
[d/l]
      Hey, the weight disappears after every bite! I gotta try that. I knew I wanted my body rewritten in Perl -- not only would it be much easier to debug (if I caught a flu bug, for example), but weight disappearing would be the best.

      $me{body}=join('+',('slim','svelte','sexy'));
$me{brain}++;   # Love those overload operators.

      [download]
      Ah, how wonderful.

      =Blue
      ...you might be eaten by a grue...

[reply]
[d/l]

In Section Meditations