$" = ", "; $string = "a:b:c"; @list = ($string =~ m/(?=(\w):(\w))/g); print "list=@list\n";