perl -le '(1 x $_++) =~ /^(1(??{1x$-[1]}))*$/ && print while 1'
[download]

perl -le 'print "Fibonacci" if (1x(-1+pop)) =~ /^(1(??{1x$-[1]}))*$/' 
+<NUMBER>
[download]