Select Code to Download

 
my @res = `ping -c 3 $ip`;
 if (pop @res =~ /(\d+\.\d+)\/(\d+\.\d+)\/(\d+\.\d+))
...
my @sorted = sort ($1,$2,$3);
print pop @sorted
}

print(((sort(((`ping -c3 $ip`)[-1])=~/(\d+\.\d+)\/(\d+\.\d+)\/(\d+\.\d
++)/))[-1])
)