use 5.012;
use Mojo::UserAgent;
use warnings;
binmode STDOUT, ':encoding(UTF-8)';

my $ua = Mojo::UserAgent->new();
my $r = $ua->get('http://www.loc.gov/standards/iso639-2/php/code_list.php');
for my $row ($r->res->dom('tr')->each) {
    my ($three, $two, $english_name, $french_name) =
            map $_->text, $row->find('td')->each;
    say "    $two => '$english_name'," if length($two) == 2;
}
__END__
Output:
    aa => 'Afar',
    ab => 'Abkhazian',
    af => 'Afrikaans',
    ak => 'Akan',
    sq => 'Albanian',
...