Perl 5 -MList::Util=sum -pF/R/, 40 bytes
$\=2*sum map$_=y///c,@F}{$\-="@F"+$F[-1]
Xcali
- 16.2k
- 2
- 15
- 39