my $foo = "Hello WorldFoo BarPerl MonksSlash Dot";
for ($foo) {
    for (/[A-Z][a-z]+/g) {
        print "$_ \n";
    }
}