#!/usr/bin/perl -w
use strict;

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

if (length($string1) > 8) {
   $string1 =~ s/(.{8})(.*)/$1/;
   print "zuviel: $2\n";
}

my $string2 = "dies ist ein test";

if (length($string2) > 8) {
   $string2 =~ s/(.{8})(.*)/$1/;
   print "zuviel: $2\n";
}