Select Code to Download

#! perl
use strict;
...

my $flat = Dumper($animals);
print "$1\n" while $flat =~ / 'humps' \s+ => \s+ (\d+) /gx;

2
0
1