Select Code to Download

use warnings;
use strict;
...
    my @parts = unpack ($temp, $str);
    return @parts;
}

Jus ust st  t A  An Ano not oth the her er  r P  Pe Per erl rl  l H  H
+a Hac ack cke ker 
Jus ust st  t A  An Ano not oth the her er  r P  Pe Per erl rl  l H  H
+a Hac ack cke ker 
...
regex  42045/s     --   -12%   -39%
unpack 47764/s    14%     --   -31%
substr 69161/s    64%    45%     --