888.333.333.33
156.343.333.99
888.323.222.223
888.222.222.111

##</code><code>##

888.333.333.33
 did not respond.
156.343.333.99
 did not respond.
888.323.222.223
 did not respond.


##</code><code>##

@a = (<DATA>);
#$s = system("$?");
$myfil = "myfil";
foreach (@a)
{
system("/usr/sbin/ping $_");
if ( $? != 0)
{
       open(FIL,">>$myfil") || "Can't open $myfil: $! \n";
       print FIL "$_ did not respond.\n";
}
else
{
        print "good\n";
}
}
system("cat $myfil | mailx -s 'Did not ping mail' myemail\@here\.com");
system("rm myfil");
close(FIL);
close(DATA);       

__DATA__
888.333.333.33
156.343.333.99
888.323.222.223
888.222.222.111