perlquestion
Anonymous Monk
Hi all,
<br>
Can anyone please explain this code for printing fibonacci series<br>
<br>
<code>
$ perl -le ' $==1,(1 x $_)=~/(^)(1|11\1)*(?{$=++})^/,print $= for 0..10'
</code>
2
3
5
8
13
21
34
55
89
144
233
<br>
Thanx in advance!!!
14