sp modeのIPリスト

use strict;
use warnings;
use utf8;
use Web::Query;
use NetAddr::IP;

my @ips; 
wq(q{http://www.nttdocomo.co.jp/service/developer/smart_phone/technical_info/etc/index.html})
    ->find('#maincol div:nth-child(4) div .delmb')
    ->each(sub{
        @ips = split / /, $_->text;
});

use Data::Dumper;
warn Dumper [@ips];