sub linear_string
{
my ($array, $target) = @_;
for (my $i = @$array; $i--;)
{
print("$array->[$i]\n");
return $i if $array->[$i] eq $target;
}
return undef;
}

$path= 'd:\\atlog.txt';
open(LOGFILE, "< $path")
or die "Couldn't open $path for reading: $!\n";

$target = 'test';
while (<LOGFILE>)
{
@string= split(/\s+/, $_);
$index = linear_string( \@string, $target);
print("@string($index)");
print("$index\n");
}

my $path = 'd:\\atlog.txt';
my $target = 'test';
my $found;

open(LOGFILE, "<$path") or die "Couldn't open $path for reading: $!\n";
while (<LOGFILE>) {
chomp;
if (grep { /^\Q$target\E$/i } (split /\s+/)) {
$found = 1;
last;
}
next;
}
close (LOGFILE);

print $found ? 'OK' : 'NOT OK';

if (grep { /^\Q$target\E$/i } (split /\s+/)) {
$found = 1;
last;
}
next;

my $i = 0;
for (split /\s+/) {
$i++;
if (/^\Q$target\E/i) {
$found = $i;
last;
}
}