my $string = "ThisIsACamelCasedString";
my @split = $string =~ /([A-Z][a-z]*)/g;
print "Parts: @split";

##</code><code>##

my $string = "AStringWithFTPAndHTTP";
my @split = $string =~ /([A-Z](?:[A-Z]*(?=$|[A-Z][a-z])|[a-z]*))/g;
print "Parts: @split";