Select Code to Download

my @substrings;
{
    my $size = 10;
...
    push @substrings, substr($string, 0, $size, '')
        while $string;
}

my @substrings = do {
    local $/ = \10;
    open my $fh, '<', \$string;
    <$fh>
};