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