A Mojo program to check how close Tom Brady is to Drew Brees

brady_goat.pl

#!/Users/brian/bin/perl

use v5.10;

use CLDR::Number;
use Mojo::UserAgent;
use Mojo::Util qw(dumper);

my $url = 'http://www.espn.com/nfl/history/leaders/_/stat/passyards';

my $dom = Mojo::UserAgent->new->get( $url )->result->dom;

my @rows =
	map {
		$_->[1] =~ s/\D//g;

		$_->[0] = lc $_->[0];
		$_->[0] =~ s/\b(.)/"\U$1"/eg;
		$_
		}
	map { [
		$_->find( 'td' )->map( text )->to_array->@[1,2]
		] }
	map { $dom->at( "tr.$_" ) }
	qw(oddrow evenrow);

say "$rows[1][0] needs ",
	CLDR::Number->new->decimal_formatter->format( $rows[0][1] - $rows[1][1] ),
	" yards to pass $rows[0][0]";