# @groups = groups1($s)
sub groups1 {
    return map { substr $_[0], $-[$_], $+[$_] - $-[$_] } 1..$#- 
}