Help for this page
#! perl use strict; ... my $flat = Dumper($animals); print "$1\n" while $flat =~ / 'humps' \s+ => \s+ (\d+) /gx;
2 0 1