my @sets_of_six = ( $s =~ m{ (.{6}) }xmsg );