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