( bigwig | 2011. 04. 13., sze – 16:29 )

#!perl

use 5.010;
use strict;
use warnings;
use Regexp::Common qw/ net /;

my %addr;
while ( my $line = <ARGV> ) {
  $addr{$_}++ for ( $line =~ /$RE{net}{IPv4}/g );
}

say join $/, grep defined,
  ( reverse sort { $addr{$a} <=> $addr{$b} } keys %addr )[ 0 .. 9 ];

reverse kell!