Try this:

if ($ping_out !~ /bytes from/) { 
    print "$_ isn't pinging\n";
}
else {
    print "$_ is up\n";
}
[download]