http://www.perlmonks.org?node_id=806125


in reply to Re^2: Recursive substitution
in thread Recursive substitution

it's redundant to do a separate m/$pat/ check
You are absolutely correct, of course. I started playing with patterns that would have required the extra check (because the ones used in s/// and m// were different), but I failed to remove the extra code after changing my approach. I added a note to my original reply but left the crufty code to avoid confusing future readers of this thread.