Select Code to Download

use strict;
use warnings;
...
$output =~ s/{"dns/\n  {"dns/g; # beautifying only, can be removed
$output =~ s/\]/\n]/;           # beautifying only, can be removed
print $output;

[
  {"dns_record":{"priority":0,"ttl":14400,"name":"@","type":"MX","id":
+122330,"hostname":"mail.aresstest.com"}},
...
  {"dns_record":{"ttl":86400,"name":"aresstest.com","type":"NS","id":1
+22328,"hostname":"ns4.qwkdns.com"}},
  {"dns_record":{"minimum":10800,"ttl":86400,"serial":2013032112,"host
+master":"ns1.qwkdns.com","primaryNs":"ns1.qwkdns.com","name":"@","ret
+ry":900,"refresh":7200,"type":"SOA","id":122329,"expire":2419200}}
]