Select Code to Download

use JSON;

...
my $pretty = JSON->new->pretty->encode(\%HoA);
$pretty =~ s/(\[.*?\])/remove_newlines($1)/egsm;
print "pretty:\n$pretty";