my $string = "012345678901234567890123456789";
my @array = unpack("A5" x 6, $string);
printf("%s-%s-%s<br>%s-%s-%s\n", @array);