$a=~s/foo/bar/