22 my ($id, $rest) = /Sue (\d+): (.*)/;
23 my %vals = $rest =~ /(\w+): (\d+)/g;
24 for my $v (keys %vals) {
25 if ($v eq 'pomeranians' || $v eq 'goldfish') {
26 next AUNT if defined $g{$v} && $g{$v} <= $vals{$v};
27 } elsif ($v eq 'cats' || $v eq 'trees') {
28 next AUNT if defined $g{$v} && $g{$v} >= $vals{$v};
30 next AUNT if defined $g{$v} && $g{$v} != $vals{$v};