Select Code to Download

$output =~ /"access_token":"(.*)", "ex/g;

$output =~ /"access_token":"(.*)", "ex/g
    or die "Couldn't find access token in [[$output]]";

use JSON 'decode_json'; # or JSON::XS , or JSON::Tiny

...
        unless $decoded_output->{access_token};
    return $output->{access_token}
}