First of all, I wrote 'HeadOnLongNeck', not just 'Neck'. So, you want to replace part of "prefix", i.e.part of 'HeadOnLongNeck', and the '{SomeBody}' ?

Or you want to replaced the whole 'HeadOnLongNeck{SomeBody}' ?

I want to replace the "prefix" and the contents of the brackrts, including the brackets themselves.

So, assuming that initially you have

you want $s to become

where 'Foo' is the text you want to have instead of 'HeadOnLongNeck{SomeBody}', correct ?

If it's the case, why not simply use Perl 's' operator - you gave an advice on it in a recent thread.

I think I've already written, read:

perldoc -f s
perldoc perlretut
perldoc perlre
.

How is the s operator gonna help? "Foo" is generated by a subroutine and cannot be known beforehand. It is not stored in a variable or can be generated by pure regex (as far as I know).

Read

perldoc perlop
.

The answer is there.

And/or you may try the substr/length way. I.e. read

perldoc -f substr
perldoc -f length
.

And if you want the substr/length way, first write code which does the job using hard-coded numbers, and then I'll "drive" you step by step to the generic (not hard coded) way.

Unfortunately, as this thread has proved many times, you do not read the documentation when told so. Before telling you to read something I am rechecking myself to make sure the documentation I suggest to read does have the needed answers.