Capture output from command

#! /usr/bin/env perl

use feature qw(say);
use strict;
use warnings;

my $output = `perl user.pl`;

if ( $output =~ /Access Token: (.*)$/ ) {
    say $1;
}