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

##</code><code>##

/is alive/ and print ALIVEIP for <PINGALLIP>;