my $sepstring = '7c6xb1%$#!@#$!@';

 my $foo = "Hello WorldFoo BarPerl MonksSlash Dot";
 for ($foo) {
    s/([a-z])([A-Z])/$1$sepstring$2/g;
    for (split /\Q$sepstring\E/ ) {
        print "$_ \n";
    }
 }