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