$a=~s/a/$b[tuwas()]/