while ($string =~ / (?=([a-z]+[ ][a-z]+)) [a-z]+ /gx) {