Help for this page

Select Code to Download


  1. or download this
    my $string = "ThisIsACamelCasedString";
my @split = $string =~ /([A-Z][a-z]*)/g;
print "Parts: @split";
  2. or download this
    my $string = "AStringWithFTPAndHTTP";
my @split = $string =~ /([A-Z](?:[A-Z]*(?=$|[A-Z][a-z])|[a-z]*))/g;
print "Parts: @split";