my @ping1 = split /\n/, $ping1;