Select Code to Download

$_ = "dog 789 cat dog dog bird cat wonder dog frog cat";

my @finds = /(dog(?:(?!dog).)*?cat)/g;

say Dumper \@finds;

[
  "dog 789 cat",
  "dog bird cat",
  "dog frog cat"
]