Select Code to Download

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

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