Just fyi:

use strict;
use warnings;
use Tie::CharArray;
use Benchmark qw/cmpthese/;

my $string = join '', 'A' .. 'Y';

sub _unpack {
    my @arr = unpack '(A5)*', $string;
}

sub _regex {
    my @arr = $string =~ /.{5}/g;
}

sub _split {
    my @arr = split /.{5}\K/, $string;
}

sub _substr {
    my @arr;

    for ( my $i = 0 ; $i < length $string ; $i += 5 ) {
        push @arr, substr $string, $i, 5;
    }
}

sub _open {
    my @arr;

    open my $sh, '<', \$string;
    while ( read $sh, my $chars, 5 ) {
        push @arr, $chars;
    }
}

cmpthese(
    -5,
    {
        _unpack => sub { _unpack() },
        _regex  => sub { _regex() },
        _split  => sub { _split() },
        _substr => sub { _substr() },
        _open   => sub { _open() }
    }
);

[download]

Output:

            Rate   _open  _regex _substr  _split _unpack
_open   265986/s      --    -53%    -55%    -57%    -70%
_regex  563780/s    112%      --     -5%     -8%    -36%
_substr 593788/s    123%      5%      --     -3%    -33%
_split  612001/s    130%      9%      3%      --    -31%
_unpack 881949/s    232%     56%     49%     44%      --

[download]

In reply to Re: Performance problems on splitting long strings by Kenosis
in thread Performance problems on splitting long strings by Laurent_R

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.