Enjoy making life difficult for yourself huh? We've been here before.

#!/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->{'dat
+a-reactid'};
[download]

Output:

31
[download]

Down since last month I see. The lesson is to learn from previous working solutions you've been given.