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