$str=~s/\s+//g;