$ perl -e 'my $foo = "Hello WorldFoo BarPerl MonksSlash Dot"; my @x = split /(?<=[a-z])(?=[A-Z])/, $foo; print map("[$_]",@x),$/'
[Hello World][Foo Bar][Perl Monks][Slash Dot]