my $ips;
while(<INPUT>){
    if (/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/{
        push @ips, $1;
    }
}