If it's encoded using UTF-8,

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

If the character encoding has already been removed,

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

Then,

say $data->{d}{response}[0]{ptoFpngTransactionBundle}{bundleProcessSta
+tus};
[download]