$ echo "foobar"|perl -pe 's/foo/bar/'
barbar