my $output = grep {/round-trip/} `ping -c N foo.bar`;
my ($avg, $stddev) = ($output =~ m|([0-9.]+)/[0-9.]+/([0-9.]+) ms$|);
print "Average round-trip time: $avg (standard deviation $stddev)\n";