do { s/foo/bar/; $_ }