# [Perl 5] `-MList::Util=sum -pF/R/`, 40

<!-- language-all: lang-perl -->

    $_=/R/*sum map y///c,@F,@F[1..@F-2+/R$/]

[Try it online!][TIO-m1sco3c7]

[Perl 5]: https://www.perl.org/
[TIO-m1sco3c7]: https://tio.run/##K0gtyjH9/18l3lY/SF@ruDRXITexQKFSX18/WcfBDYiiDfX0HNx0jbT1g1T0Y///D9LT0wv6l19QkpmfV/xf19cns7jEyiq0JDPHFqgbKGCqZ2Bo8F@3wA1oIAA "Perl 5 – Try It Online"