my $src_string = 'aaa';
my @results = $src_string =~ /([^:]*):/g;
use Data::Dumper; print Dumper \@results;
__END__
$VAR1 = [];