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