Nevermind, I see what you mean and you're right. It was a stupid mistake, one of those bugs that are born when you try to fix other bugs. Anyway, I fixed it and at the same time used a cleaner and more readable method to do it, so it will be easier to update if you find another bug :tongue:
Code:
alias ddc {
  var %a, %b = /^()BB|()BB(?=[^,\d]|,\D)|(\D|(?:[^\d]|[^]\d)\d)BB(?=,\d)|((?:(?:(?:(?:[^]\d|[^\D])\d|\D),|[^,])\d|(?:\D|(?:[^\d]|[^]\d)\d),|[^\d,]))BB(?=\d)|B((?:[UR]|(?:\d\d?(?:,\d\d?)?)?)*(?:[UR]|\d\d(?:,\d\d)?))B(?=\d)|B((?:[UR]|(?:\d\d?(?:,\d\d?)?)?)*(?:[UR]|(?:\d\d?,\d\d?)?))B(?=,\d)|B((?:[UR]|(?:\d\d?(?:,\d\d?)?)?)+)B(?=[^,\d]|,\D)/g
  !.echo -q $&
    $regsub($1,/(?:\d\d?(\x2C\d\d?)?)+(?(1)|())(\d\d?)(\x2C\d\d?|)/g,$+(\2,$cr,\1,$lf,\3,$lf),%a) $&
    $regsub(%a,/(?<=\r\x2C)(?=\d\n[^\n]*\n\d)/g,0,%a) $&
    $regsub(%a,/\r(?:\x2C\d\d?)?\n(\x2C\d\d?)\n|\r(\x2C\d\d?|)\n\n/g,\1,%a) $&
    $regsub(%a,/(\d[^]*[^\d][^]*)(?=\D|$)/g,\1,%a) $&
    $regsub(%a,/(?<=(\d\d)(\x2C\d\d))([^]+)\1\2?/g,\3,%a) $&
    $regsub(%a,/(?<=(\d\d)(\x2C\d))([^\d][^]*)\1\2?(?!\d)/g,\3,%a) $&
    $regsub(%a,/(?<=(\d)(\x2C\d\d))([^]+)\1\2?/g,\3,%a) $&
    $regsub(%a,/(?<=(\d)(\x2C\d))([^\d][^]*)\1\2?(?!\d)/g,\3,%a) $&
    $regsub(%a,/(?<=(\d\d))(\x2C(?:[^\d][^]*)?|[^\x2C][^]*)\1/g,\2,%a) $&
    $regsub(%a,/(?<=(\d))(\x2C(?:[^\d][^]*)?|[^\x2C\d][^]*)\1(?!\d)/g,\2,%a) $&
    $regsub(%a,/\d\d?(\x2C\d\d?)?(?!\d)/g,,%a) $&
    $regsub(%a,$replacecs(%b,B,,U,,R,),\1,%a) $&
    $regsub(%a,$replacecs(%b,U,,B,,R,),\1,%a) $&
    $regsub(%a,$replacecs(%b,R,,B,,U,),\1,%a)
  if $regex(%a,/(\d)/) { return $remove($left(%a,$calc($regml(1).pos - 1)),) $+ $mid(%a,$regml(1).pos) }
  return $remove(%a,)
}

/.timerQ 1 0 echo /.timerQ 1 0 $timer(Q).com