__OUTPUT__
Hello
World
Foo
Bar
Perl
Monks
Slash
Dot
[download]

although

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

would work.