my $count;
if (($count) = /see the (\d) brown foxes/) {
  print("There are $count foxes. Let's go hunting!$/");
}