perl -ne '($ip,$bytes)=(split)[0,-1];$h{$ip}+=$bytes;END{print "$_\t$h{$_}\n" for keys %h}' access_log*