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

##</code><code>##

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