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