Есть ли лучшая альтернатива решения задачи?

my $str = '005555,0 ,000000,000,09,22204545000 ,33363837355 ,33365765574 , ,00,28012015075753,28012017097542,280120157937742';
my (undef, $val) = unpack "A[37]A[3]", $str;
say $val;

perl -E '$_="005555,0 ,000000,000,09,22204545000 ,3336"; if(substr($_,37,3) eq "333") { say "OK"}'

perl -E '$_="005555,0 ,000000,000,09,22204545000 ,3336"; if((unpack"A37A3")[1] eq "333") { say "OK"}'

my $col1 = substr( $line, 4,  3 );
my $col2 = substr( $line, 30, 2 );
my $col3 = substr( $line, 54, 3 );
my $col4 = substr( $line, 72, 2 );

 my @cols = (unpack("A4A3 A23A2 A23A3 A15A2", $line))[1,3,5,7];

use utf8;
use strict;
use warnings;
use Benchmark;
 
#количество колонок для извлечения
my $NN = shift || 5000;
 
my $str = "ФЫВ#" x $NN;
my @cols;
 
 
my $format = "A3A1" x $NN;
 
my @indexes;
 
for( my($n,$k)=(0,0); $n<$NN; $n+=1, $k+=2 ) {
        push @indexes, $k;
}
 
my %methods = (
    unpack  => sub {
 
                @cols = (unpack $format, $str)[@indexes];
            return \@cols;
        },
 
    substr => sub {
            for( my($n,$k)=(0,0); $n<$NN; ++$n, $k+=4 ) {
                    $cols[$n] = substr( $str, $k, 3);
            }
            return \@cols;
        }
);
 
print $NN;
 
Benchmark::cmpthese -1, \%methods;
Benchmark::timethese -1, \%methods;