$ perl -le '$_="foo"; /(o)/; s/$1/x/; print'
fxo