my @lines = split /\n/, $logtext; my $last = $lines[-1];