$stringtoclean=~s/[^A-Za-z0-9 ]+/ /