my %prices = $str =~ m/((?:$animal)s?)\s(?:is|are)\s(\$\d+)/g;