Select Code to Download

<table class="dextable" align="center">
<tr>
...
    <td class="cen">3</td>
    <td class="fooinfo"><img src="/duel/material.png" />250</td>
</tr>

#!/usr/bin/perl -w
use URI;
...
for my $p (@{$res->{list}}) {
    print Encode::encode("utf8", "$p->{name}\t$p->{uri}\n");
}