diff --git a/ftplugin/perl/perltidy.vim b/ftplugin/perl/perltidy.vim
index 566591b..fc0a084 100644
--- a/ftplugin/perl/perltidy.vim
+++ b/ftplugin/perl/perltidy.vim
@@ -34,6 +34,7 @@ function!s:PerlTidy()
     call setpos(".", prevcur)
     call setpos("'x", prevx)
     call setpos("'y", prevy)
+    set nopaste
 endfunction
 
 command! -nargs=* -range -bang PerlTidy <line1>,<line2>call s:PerlTidy()