http://qs321.pair.com?node_id=813835

suhailck has asked for the wisdom of the Perl Monks concerning the following question:

Hi All,

Anyone please explain this one liner to generate 20 fibonacci number series.

perl -le'$==1,(1x$_)=~/(^)(1|11\1)*(?{$=++})^/,print$=for 0..20'

[download]

Thanks in Advance~

Back to Seekers of Perl Wisdom