use JSON::XS qw( decode_json );
my $data = decode_json($json);

##</code><code>##

use JSON::XS qw( );
my $data = JSON::XS->new->decode($json);

##</code><code>##

say $data->{d}{response}[0]{ptoFpngTransactionBundle}{bundleProcessStatus};