my $letztes = substr($zeichenkette,-1); # -1 bedeutet letztes Zeichen