my $foo = "Hello WorldFoo BarPerl MonksSlash Dot";
print join (" \n", split (/(?<=[a-z]| )(?=[A-Z])/, $foo));