$tmpbody=~s/\%NAME\%/$name/sg;