Select Code to Download

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

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