my $reference_from_json = JSON->new->allow_nonref->relaxed->decode(do { local $/; <STDIN>; }); 
tidyup_json($refrence_from_json); 

print JSON->new->pretty->allow_nonref->canonical->encode($reference_from_json);