02-23-2010   11:20:01   10.10.0.100 is alive!
02-23-2010   11:30:01   10.10.0.100 is alive!
02-23-2010   11:40:01   10.10.0.100 is alive!
02-23-2010   11:50:01   10.10.0.100 is alive!

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

my $tail = system("tail -1 /var/log/ping_10.10.0.100.sj");
#print "$tail\n";

if ($tail =~ m/alive/) {
  print "match\n";
} else {
  print "no match\n";
}