diff --git a/docs/perl.md b/docs/perl.md
new file mode 100644
index 0000000..d0b4912
--- /dev/null
+++ b/docs/perl.md
@@ -0,0 +1,6 @@
+# Perl
+
+## Remove Repeating Chinese Characters
+```sh
+perl -ple 'BEGIN{use utf8;use open qw(:std :utf8);} s/(\p{Han})\1{1,}/\1/gm' < translation.zho.word
+```
diff --git a/mkdocs.yml b/mkdocs.yml
index 9253f42..6cbde4d 100644
--- a/mkdocs.yml
+++ b/mkdocs.yml
@@ -65,6 +65,7 @@ nav:
   - Miller: milller.md
   - Miscellaneous: doc.md
   - nvim: nvim.md
+  - Perl: perl.md
   - rsync: rsync.md
   - SLURM: slurm.md
   - tmux: tmux.md