$replace = '$1.bar'; # or '"$1bar"'
s/$find/$replace/eeg;