my @array = map {  substr $string, $_, 4  }  0  ..  length( $string ) - 4;

##</code><code>##

my $pos = 0;
while( $pos <= length( $string ) - 4 ) {
  push @array, substr( $string, $pos++, 4 );
}