$replace = 'warn "AARGH!"';
s/$find/qq(qq($replace))/eeg;