Select Code to Download

my @ips;
for $result (@res){
   my ($ip) = ($result=~ /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/);
   push @ips, $ip if defined $ip;
}