$subject = '[a:000,"name","field","field","field"]';

while ($subject =~ m/(\w+(?=:)|(?<=:)\d+|(?<=,")[^"]*?(?="))/g) {
	print "$1 \n";
}