$_ = "The brown fox jumps over the lazy dog";
      /the (\S+)(?{ $color = $^N }) (\S+)(?{ $animal = $^N })/i;
      print "color = $color, animal = $animal\n";