while (<PINGALLIP>) {
   if (/is alive/) {
                chomp;
                print ALIVEIP $_;
        }
}