$string =~ s/$reg/'"'.$reg2.'"'/eeg;