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

@finds = ($x =~ /((?:dog)(?:.*?)(?:cat))/g);