perl -de0

...
  DB<11> @matches = ( "aaa x ddd y ccc" =~ /(^ (?:aaa|bbb|ccc) | (?:ddd|eee|ccc) )/xg ); 

  DB<12> print "@matches"
aaa ddd ccc
  DB<13>