Help for this page
perl -le 'print join ":", split /(?<=\d\d)(\d\d)/, "123456789"'
perl -le 'print join ":", grep {length} split /(\d\d)/, "123456789"'