$script=~s/(\W)/_/g;