#!/usr/bin/env perl use JSON; while (<STDIN>) { my $data = decode_json($_); print encode_json($data); }