Yes. I kept feeling there was a solution there somewhere, but be darned if I could find it.

I tried playing games with \G as part of a positive look-behind assertion, but as is documented in the 5.8 copy of perlre, this isn't really supported. Constraining the match with a lvalue substr was the best I could come up with.