my @ping = split /\n/, $ping;
if (@ping > 9) {
    # Get the average using regex/split/whatever.
}
splice @ping, -5;
splice @ping, 0, 3;
print "\n";
print "$_\n" foreach @ping;
print "\n";