my $total = 0;
while ($file =~ m{<tr><td class="left">([^<]+)</td>(.+?)</tr>}g) {
my $ship = $1;
- next if $ship eq 'Total Ships';
+ next if $ship eq 'Total Visible Ships';
my $amounts = $2;
my $tot_amount = 0;
my $i = 0;
my $fleet = $fleets[$i];
my $amount = $1;
$amount =~ s/,//g;
- if ($ship eq 'Total Visible Ships') {
+ if ($ship eq 'Total Ships') {
$fleet->{amount} = $amount;
} elsif ($amount > 0) {
$tot_amount += $amount;