$ perl -le ' $==1,(1 x $_)=~/(^)(1|11\1)*(?{$=++})^/,print $= for 0..1 +0' [download]
In reply to Explain Fibonacci one-liner ?? by Anonymous Monk