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