Select Code to Download

$ perl -e 'use JSON; use Data::Dump; my $x = do { local $/; <> }; dd(d
+ecode_json $x)' pm_1201279_input.json
{
...
          ],
  head => {},
}

$ perl -e 'use JSON; use Data::Dumper; my $x = do { local $/; <> }; pr
+int Dumper decode_json($x)' pm_1201279_input.json
$VAR1 = {
...
                   ],
          'head' => {}
        };

$ perl -E 'use JSON; my $j = do { local $/; <> }; my $p = decode_json 
+$j; say $p->{def}' pm_1201279_input.json
ARRAY(0x7f8e1c881968)

$ perl -E 'use JSON; my $j = do { local $/; <> }; my $p = decode_json 
+$j; say $p->{def}[0]' pm_1201279_input.json
HASH(0x7f89ee002e30)

$ perl -E 'use JSON; my $j = do { local $/; <> }; my $p = decode_json 
+$j; say for keys $p->{def}[0]->%*' pm_1201279_input.json
ts
pos
tr
text