$str =~ s/ /    /g;