Is the current episode of This American Life new?

this_american_life.pl

#!/Users/brian/bin/perl
use v5.26;

use Mojo::UserAgent;
use Term::ANSIColor;

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

my $url = 'https://www.thisamericanlife.org/archive';

my $tx = $ua->get( $url );

my $episodes = $tx->result->dom
    ->find( 'article[data-episode]' )
    ->map( attr => 'data-episode' );

my $latest   = $episodes->first;
my $greatest = $episodes->sort( sub { $b <=> $a } )->first;

say <<~"HERE";
    Episode  is $latest
    Greatest is $greatest

    @{[
        $latest == $greatest ?
            colored( ['green'], 'This is a new episode' )
                :
            colored( ['red'], 'This is a re-run' )
    ]}
    HERE