__OUTPUT__
Hello
World
Foo
Bar
Perl
Monks
Slash
Dot

##</code><code>##

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