Help for this page

Select Code to Download


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