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


in reply to special character substitution

Also, using  ' (single-quote) as a delimiter for either or both of the substitution pattern or replacement string of a  s/// will force the use of single-quotish (non-)interpolation and escapology. 

>perl -wMstrict -le
"$_ = 'T}@T...T}@T{';
 s'T}@T.*T}@T{'\(bu'sm;
 print qq{'$_'};
"
'\(bu'

[download]

In Section Seekers of Perl Wisdom