scrape specific text perl

See more:

Perl

Hello i would like to know how i can print only the data-user-id from the source code of the script i have.

use strict;
use LWP::Simple;
use HTML::TokeParser;

my $content = get("https://twitter.com/joshuakhane");
die "Couldn't get it!" unless defined $content;

my $stream = HTML::TokeParser->new(\$content);

while (my $token = $stream->get_token) {
if ($token->[0] eq 'T') { # text
# process the text in $token->[1]
print $token->[1];
}
}

data-user-id="25971071" is inside of the source code and i would like to get only that.
Anybody who could help?

Thanks in advance.