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