in reply to Re: Regular expression substitution question
in thread Regular expression substitution question

And for us anal-retentive types who hate to replace something with itself: 
s/(?<=\x7E(?!$))/\x5E/g;

[download]
 Oh, just shoot me now. I didn't notice 7E->7D. I must not be anal-retentive enough. Thanks, Enlil. 
s/~(?!$)/}^/g;

[download]
The PerlMonk tr/// Advocate

In Section Seekers of Perl Wisdom