BEGIN { f = "foo" ; sub(@/f/, "q", f); print f }