Select Code to Download

my $output = q/..../;
my $matched = $output =~ m/"access_token":"(.*)", "ex/g;
print "Match: $matched\n";
say '$1 is <', (defined($1) ? $1 : 'undef'), ">\n";