my $str = "abcdefghjklmnopqrstuvwxy";
my @test = unpack("a8" x (length($str) / 8) , $str);
print "anzahl " . $#test . "\n";
foreach (@test) {
	print "test: $_\n";
}