if ($ping_out !~ /is alive/){ print "$_ isn't pinging\n"; }

##</code><code>##

if ($ping_out !~ /bytes from/){ print "$_ isn't pinging\n"; }