I would break each of your ping strings up via split'ing on newlines, as a starting point. Within each new array, first grep out only those that start with "Reply" into a second array. Then, assuming that the average will always be in the last one, you can grab that portion from the last element of the split.

Something like the following:

my @pings = split /\n/, $ping;
my @keep = grep { /^Reply/ } @pings;
$pings[-1] =~ /(Average =.+)$/ );   my $avg = $1;
push @keep, $avg;
print join '\n', @keep;
[download]

Other transformations are then rather trivial.

-----------------------------------------------------
Dr. Michael K. Neylon - mneylon-pm@masemware.com || "You've left the lens cap of your mind on again, Pinky" - The Brain
It's not what you know, but knowing how to find it if you don't know that's important