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