#!/usr/bin/perl5 -w
use strict;

my ($avg_time, $raw_data, @times,
    $time_count, $total_time);
my $repeats = 5;
my $addr = 'www.perlmonks.net';
for (my $i = 1; $i <= $repeats; $i++) {
   $raw_data = `ping $addr`;   # NOTE back-ticks
   
   # Now do something interesting. We'll just...
   @times = $raw_data =~ /time=(\d+)/g;
   $total_time = 0;
   $time_count = 0;
   for (@times) {
      $total_time += $_;
      $time_count++;
   }
   $avg_time = $total_time / $time_count;
   print "$i. Average time: ${avg_time}ms\n";
}

##</code><code>##

1. Average time: 61.25ms
2. Average time: 61.75ms
3. Average time: 60.75ms
4. Average time: 62ms
5. Average time: 62.25ms