$string =~ s/$reg/qq{qq{$reg2}}/eeg;