JSON is a good starting point, but it requires field names and values in quotes. See the following code which does not work due to lack of quotes:

use strict;
use warnings;
use JSON;
use Data::Dumper;
my $json = <<EOT;
[{field1:value1,field2:value2,field3:value3}
,{field1:value4,field2:value5,field3:value6}
,{field1:value7,field2:value8,field3:value9}
]
EOT
my $data = decode_json( $json );
print Dumper $data;
[download]

If you can't write a simple regex to fix the quote issue, I suggest to look into Text::CSV. With the help of that module you might be able to parse your text file. It really depends on how quotes, colons and commas interact in your file.