$group_size = 3;
push(@groups, [ substr($line, $_-1) =~ /(.{$group_size})/g ])
   for 1..$group_size;