sub is_fibo {
  push@_,length$&while$_[0]=~/^|(.)\1*/g;{@_>3?pop==$_[-1]+$_[-2]?redo:0:pop==1}
}