my @chunks;

while ( 1 ) {
  my $chunk = substr( $initial, 0, 100, "" );

  last unless length $chunk; # was it empty?

  push @chunks, $chunk;
}

print scalar(@chunks), " chunks\n";