do {local $/;  ($seq{$chr}=<IN>)=~s/[\s\r\n\t]//g};