sub fib { $_=pop;$==$}=0;{s&^(.)\1{$=}(?!\1)&&&&($==($}+=++$=)-$=,redo)}''eq$_&&$=>1 }