Select Code to Download

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

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

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