diff --git a/CHANGELOG.develop b/CHANGELOG.develop
index 760a036f2..541ef5f8d 100644
--- a/CHANGELOG.develop
+++ b/CHANGELOG.develop
@@ -2074,6 +2074,10 @@ Other:
 - Fixed =spacemacs/run-pandoc= not to reset =pandoc--local-settings=
   (thanks to martian-f)
 - Added declaration for the ~SPC P~ prefix (thanks to Codruț Constantin Gușoi)
+**** Perl5
+- Fixed =spacemacs/perltidy-format-buffer= and
+  =spacemacs/perltidy-format-function= to move the point and window to their
+  original locations.
 **** PHP
 - Added company-php (thanks to jim and Eivind Fonn)
 - Fixed php-company autocompletion (thanks to Dela Anthonio)
diff --git a/layers/+lang/perl5/funcs.el b/layers/+lang/perl5/funcs.el
index 5aa2f43a4..73c0dcb2c 100644
--- a/layers/+lang/perl5/funcs.el
+++ b/layers/+lang/perl5/funcs.el
@@ -40,11 +40,19 @@ If region is active, operate on it, else operate on line."
 (defun spacemacs/perltidy-format-buffer ()
   "Format current buffer with perltidy."
   (interactive)
-  (mark-whole-buffer)
-  (spacemacs/perltidy-format))
+  (let ((old-point (point))
+        (old-window-start (window-start)))
+    (mark-whole-buffer)
+    (spacemacs/perltidy-format)
+    (goto-char old-point)
+    (set-window-start (selected-window) old-window-start)))
 
 (defun spacemacs/perltidy-format-function ()
   "Format current function with perltidy."
   (interactive)
-  (mark-defun)
-  (spacemacs/perltidy-format))
+  (let ((old-point (point))
+        (old-window-start (window-start)))
+    (mark-defun)
+    (spacemacs/perltidy-format)
+    (goto-char old-point)
+    (set-window-start (selected-window) old-window-start)))