$ip = 'www.perlmonks.org';
$ping = `ping -c 3 $ip`;
@times = $ping =~ /time=(\d+\.\d+)/;
@times = sort { $b <=> $a } @times;
print "High to low @times ms\n";
print "Highest $times[0] ms\n";
print "Lowest $times[-1] ms\n";
print "This was the reply parsed\n$ping\n";