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