Select Code to Download

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

whilem: (cache) already tried at this position...
failed...