#!/usr/bin/perl

use strict;
use warnings;
use Mojo::UserAgent;

use feature 'say';

my $url = 'https://finance.yahoo.com/quote/AAPL?p=AAPL&.tsrc=fin-srch';

my $ua = Mojo::UserAgent->new;

say $ua->get( $url )->res->dom->at('span.[class^=Trsdu]')->attr->{'data-reactid'};