$ 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