Have you seen my "parse JSON in a single Perl Regex"? https://www.perlmonks.org/?node_id=995856