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