Select Code to Download

{ "_id" : 0, "name" : "Betty Boop",
             "subjects" : [
...
                { "type" : "required", "subject" : "English" } ]
}

#!/usr/bin/env perl
use JSON;
...

$text = decode_json($json);
print  Dumper($text);