Select Code to Download

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

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