my $x = "AAAABBBCCCCCC";
my $regex = qr(); #this is my hang-up!
my @x = split($regex, $x); #I want @x = ("AAAA", "BBB", "CCCCCC")