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