$seq=~s/[\n\s]//g;