$line =~ tr/ / /s;