Select Code to Download

my $string = 'aaa:bbb:ccc:ddd:eee:';
my $regex= $string;
$regex=~ s/[^:]*:/([^:]*:)/g;
$string =~ /$regex/;
print "$1,$2,$3,$4,$5";