in reply to Matching and making accesible an arbitrary number of subpatterns w/a regex?

This code is way overkill compared to doing a simple split, but anyway, I just wanted to see if I could do it. 
my $string = 'aaa:bbb:ccc:ddd:eee:';
my $chunk = '([^:]+:)';

my $colons =()= $string =~ /:/g;
my $regex = $chunk x $colons;
$string =~ /$regex/;
print "$1,$2,$3,$4,$5";

[download]

---
It's all fine and dandy until someone has to look at the code.

In Section Seekers of Perl Wisdom