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

##</code><code>##

open LOGSTRING, \$logtext;
my $last;
$last = $_ while (<LOGSTRING>);
close(LOGSTRING);

##</code><code>##

$logtext =~ /^(.*)\Z/m;
my $last = $1;