perl -le 'print join ":", grep {length} split /(\d\d)/, "123456789"'