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