sub flames {
  $N="@_";(@F,$_,$l)=@f;for$l(@l){$_.=$N=~s/$l//gi+0
  }$n=$N=~s/[a-z]//gi;s/.(?=(.))/$&+$1/ge,chop while
  $_>100;splice@F,$l=($l+$n-1)%@F,1 while$#F;$_+0,@F
}