$as_perl = JSON->new->decode($as_json);