$subject = '[a:000,"name","field","field","field"]';
while ($subject =~ m/(\w+(?=:)|(?<=:)\d+|(?<=,")[^"]*?(?="))/g) {
}
JHN1YmplY3QgPSAnW2E6MDAwLCJuYW1lIiwiZmllbGQiLCJmaWVsZCIsImZpZWxkIl0nOwoKd2hpbGUgKCRzdWJqZWN0ID1+IG0vKFx3Kyg/PTopfCg/PD06KVxkK3woPzw9LCIpW14iXSo/KD89IikpL2cpIHsKCXByaW50ICIkMSBcbiI7Cn0K