perl -e 'use re "debug"; "01234" =~ /^(.+)(.+)((?:.z?)+)$(?{ print "$1 $2 $3\n" })(*FAIL)/' 2>&1 | less #### whilem: (cache) already tried at this position... failed...