my @splitted = grep { length $_ } split(/(...)/, $kette);