$str =~ s/\s+/ /g;
            $str =~ s/^\s//;
            $str =~ s/\s$//;