Select Code to Download

# Takes a string and a list of REs.  Returns true or false
# depending on whether all of them match.
...
  }
  return 1;
}

if (match_all($str, split(/\s+/, $search_str))) {
  print "All of them matched\n";
}

OUTER: {
  foreach my $animal (@animals) {
...
  }
  print "Matched all of them!";
}