for ($foo) {
    for (/[A-Z][a-z]+(?:\s[A-Z][a-z]+)+/g) {
        print "$_ \n";
    }
}