you can simplify that loop by:

sub LIMIT () { 100 }

my @chunk;
while( my $chunk = substr( $initial, 0, LIMIT, '') )
{
    push @chunks, $chunk;
}
[download]

actually i threw a constant in there as well. it won't simplify the loop, but it should ease maintenance.

~Particle ;Þ