Select Code to Download

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

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