s/$pattern/qq[qq[$rep]]/ee;