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