http://www.perlmonks.org?node_id=715421


in reply to Fibonacci golf with one state variable

Without eval, without quotes, without explicit assignment and without arithmetic:
perl -lE 's//:o/;say length$1 while s/(.*):(.*)/$2:$1$2/'