Or, if you have to share it with a friend,
split and chomp()!

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

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...)

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...

open(PACKAGE, package) or die "I WANT CANDY!!!!: $!\n";

dump PACKAGE_CONTENTS_ON_TABLE;

PACKAGE_CONTENTS_ON_TABLE:

splice(@reeses_cup, $chocolate_shell);

chomp @reeses_cup if not $sick_yet;
[download]

AgentM Systems nor Nasca Enterprises nor Bone::Easy nor Macperl is responsible for the comments made by AgentM. Remember, you can build any logical system with NOR.

$cup->bite;
&Reeses::Cup::bite($cup);
bite $cup until $cup->is_gone;
[download]

#!perl -w
use strict;
use IO::Handle;
my $Hunger;
my %ReesesCup = ( 
                  TheLeft  => [ 'Chocolate', 'Peanut Butter', 'Fat' ],
                  TheRight => [ 'Chocolate', 'Peanut Butter', 'Fat' ],
                );
EAT:
for( each %ReesesCup )
{
    next if /The/; # Urge is there.
    chop( $_->[0] );
    chomp( $_->[1] );
    chomp( $_->[0] );
    ignore( $_->[2] ); 
}
$Hunger = defined $Hunger ? 'Not after that!' : '';
goto EAT if $Hunger;
sub ignore {} STDOUT->print( 'Yum!' );
[download]

nick: did that say GOTO?!

@_=split//,"reesespeanutbuttercup";
print while chomp();
print "\nYum!";
[download]

open CUP $reesecup;
while( <CUP> )
{
  push @stomach, $_;
}

sub $newReesesMoment {
    my $treat=shift;
    my $self={
        HUNGRY => 1,
        SKINCONDITION => 'fair',
        MILKRESERVES =>    'good',
    };
    bless($self,ThisTreatGodMakeItPure);
    return $self;
}

$me=ReesesCupFunction->newReesesMoment();
if $me->{HUNGRY} {
    unpack($wrapperType,$package);
    open(MOUTH, "<+/dev/digestion");
    recv($currentReeses, $contentsOfTongue);
    print MOUTH $contentsOfTongue;
    glob $swallow;
    require MilkGlass qw(Lift Tilt Drink SetDown);
    close(MOUTH);
    $numberOfReesesConsumed++;
}

if ($numberOfReesesConsumed > 35) {
    $me->{SKINCONDITION}='acne';
}

$me->VerifyMilkReserves();
if ($package==undef) {
    warn $spouse;
} else {
    sin($more);
}
[download]