perl regexp replace string with a substring of the regular expression

Question

Hello I have a question concerning perl.

Assume I have the following line in my file:

DoMatchLong ( "ThisIsMyVariable", lThisIsMyVariable);

I want to replace "ThisIsMyVariable" by cp_const_ThisIsMyVariable

So my aim is:

DoMatchLong ( cp_const_ThisIsMyVariable, lThisIsMyVariable);

$count = s/(?<=")\w+(?=")/const_cmd_cp_$&/gx;

leads to DoMatchLong ( "cp_const_ThisIsMyVariable", lThisIsMyVariable);

So what is the correct solution?

Thank you for any help. Best regards Menne

Answer 1

$count = s/"(\w+)"/const_cmd_cp_$1/gx;

Pull the quotes into the match, then use a capturing group to get only the actual text between the quotes, while still replacing them.