To find your error locations easier, you can use Sub::Name to give them a name.

Note that the "original string" may not be available anymore once Perl comes to the conclusion that your code tries to do something nonsensical.

Maybe you can show us a more concrete example that reproduces your situation and show us what you would like to see instead.