perl -e '"01234" =~ /^(.+?)(.+)((?:.z?)+)$(?{ print "$1 $2 $3\n" })(*FAIL)/'
0 123 4
0 12 34
0 1 234
01 23 4