perl -e '"01234" =~ /^(.+)(.+)(.+)$(?{ print "$1 $2 $3\n" })(*FAIL)/'

##</code><code>##

012 3 4
01 23 4
01 2 34
0 123 4
0 12 34
0 1 234

##</code><code>##

perl -e '"01234" =~ /^(.+)(.+)((?:.z?)+)$(?{ print "$1 $2 $3\n" })(*FAIL)/'