diff --git a/README.md b/README.md
index 87c27be..6c98e3f 100644
--- a/README.md
+++ b/README.md
@@ -192,13 +192,16 @@ Strongly recommend to use
 
 ;; If non-nil, only display one number for checker information if applicable.
 (setq doom-modeline-checker-simple-format t)
-  
+
 ;; The maximum displayed length of the branch name of version control.
 (setq doom-modeline-vcs-max-length 12)
 
 ;; Whether display perspective name or not. Non-nil to display in mode-line.
 (setq doom-modeline-persp-name t)
 
+;; Whether display icon for persp name. Nil to display a # sign. It respects `doom-modeline-icon'
+(setq doom-modeline-persp-name-icon nil)
+
 ;; Whether display `lsp' state or not. Non-nil to display in mode-line.
 (setq doom-modeline-lsp t)
 
diff --git a/doom-modeline-core.el b/doom-modeline-core.el
index 1a03bd7..9b070b1 100644
--- a/doom-modeline-core.el
+++ b/doom-modeline-core.el
@@ -189,6 +189,9 @@ If the actual char height is larger, it respects the actual char height.")
 (defvar doom-modeline-persp-name t
   "Whether display perspective name or not. Non-nil to display in mode-line.")
 
+(defvar doom-modeline-persp-name-icon nil
+  "Whether display icon for persp name. Nil to display a # sign. It respects `doom-modeline-icon'.")
+
 (defvar doom-modeline-lsp t
   "Whether display `lsp' state or not. Non-nil to display in mode-line.")
 
diff --git a/doom-modeline-segments.el b/doom-modeline-segments.el
index ed5c065..fa32b6b 100644
--- a/doom-modeline-segments.el
+++ b/doom-modeline-segments.el
@@ -1330,12 +1330,15 @@ Requires `eyebrowse-mode' to be enabled."
                    (fboundp 'safe-persp-name)
                    (fboundp 'get-current-persp))
           (let* ((persp (get-current-persp))
-                 (name (safe-persp-name persp)))
+                 (name (safe-persp-name persp))
+                 (icon (if (and doom-modeline-icon doom-modeline-persp-name-icon)
+                           (concat (doom-modeline-icon-material "aspect_ratio" :v-adjust -0.17) (doom-modeline-spc))
+                         "#")))
             (unless (string-equal persp-nil-name name)
               (concat
                (doom-modeline-spc)
                (propertize
-                (format "#%s" name)
+                (format "%s%s" icon name)
                 'face (if (and persp
                                (not (persp-contain-buffer-p (current-buffer) persp)))
                           'doom-modeline-persp-buffer-not-in-persp