perl -MYAML -MJSON -e 'print Dump(decode_json(shift))' '[ 1, 2, 5, "Three, Sire!" ]'
---
- 1
- 2
- 5
- 'Three, Sire!'