Question

I have a line which contains one, two or three words that start with LowerCase followed by a colon and each followed by a few (arbitrary) words that start with UpperCase:

example (arbitrary):

alpha: Beta beta gamma: Alpha Beta gamma beta gamma: Omega Omega omega alpha: Gamma Omega Phi

split criterion: any number of words that start with lowercase follow by colon.

example:

alpha: Beta
beta gamma: Alpha Beta
gamma beta gamma: Omega Omega
omega alpha: Gamma Omega Phi

a little help is appreciated. Thanks

Answer 1

use strict;
use warnings;

my $lcword  = qr!\b[a-z]+!;      # all-lowercase word
my $ucfword = qr!\b[A-Z][a-z]+!; # word with a leading uppercase letter
my @list = $string =~ m!((?:$lcword|\s)+: (?:$ucfword|\s)+)!g;
print join("\n", @list), "\n";