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

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

say Dumper \@finds;