my $string1 = "dies\nist\nein\ntest";

if (length($string1) > 8) {
  my $zuviel = substr($string1, 0, 8, '');
  print "zuviel: $zuviel\nstring: $string1";
}