[0] Perl> print $string;; 2648117951505438300028047571976236505346 @sets_of_six = ( $string =~ m{ (.{6}) }xmsg );; print for @sets_of_six;; 264811 795150 543830 002804 757197 623650