jeopardy.pl

use Mojo::Base -strict;

use Mojo::URL;
use Mojo::UserAgent;

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

my ($id) = @ARGV;

my $url = Mojo::URL->new('http://www.j-archive.com/showgame.php')->query(game_id => $id);
my $dom = $ua->get($url)->result->dom;

$dom->find('.round')->each(sub{
    my @cats = $_->find('.category .category_name')->map('text')->each;
    $_->find('.clue')->each(sub{
      my $tile = $_->at('.clue_text');
      my ($col, $row) = $tile->{id} =~ /clue_\w+_(\d)_(\d)/;
      my $text = $tile->text;
      my ($answer) = $_->at('div[onmouseover]')->{onmouseover} =~ m!(\Q<em class="correct_response">\E.*\Q</em>\E)!;
      $answer = Mojo::DOM->new($answer)->all_text;
      say "$cats[$col - 1]: Q: '$text' A: '$answer'";
    });
});