#!/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";
}