perl -le 'print join ":", split /(?<=\d\d)(\d\d)/, "123456789"'

##</code><code>##

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