$line =~ tr/ /\t/s;