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