my $chars = 5;
my $length = length($string);

my $parts = $length / $chars;
my $pattern = "A$chars " x int($parts);

if ($parts ne int($parts)) { # rest geblieben => noch ein A* ans ende packen
  $pattern .= "A*";
}
my @strings = unpack($pattern, $string);