diff --git a/perl-5.31.3-PATCH-perl-134325-Heap-buffer-overflow.patch b/perl-5.31.3-PATCH-perl-134325-Heap-buffer-overflow.patch
new file mode 100644
index 0000000..7f1da16
Binary files /dev/null and b/perl-5.31.3-PATCH-perl-134325-Heap-buffer-overflow.patch differ
diff --git a/perl.spec b/perl.spec
index f51ff2a..f4cf059 100644
--- a/perl.spec
+++ b/perl.spec
@@ -275,6 +275,10 @@ Patch55:        perl-5.31.3-PATCH-perl-134133-read-beyond-end-of-buffer.patch
 # fixed after 5.31.3
 Patch56:        perl-5.31.3-perl-134230-don-t-interpret-0x-0b-when-numifying-str.patch
 
+# Fix a buffer overread when compiling a regular expression with many escapes,
+# RT#134325, fixed after 5.31.3
+Patch57:        perl-5.31.3-PATCH-perl-134325-Heap-buffer-overflow.patch
+
 # Link XS modules to libperl.so with EU::CBuilder on Linux, bug #960048
 Patch200:       perl-5.16.3-Link-XS-modules-to-libperl.so-with-EU-CBuilder-on-Li.patch
 
@@ -2853,6 +2857,7 @@ Perl extension for Version Objects
 %patch54 -p1
 %patch55 -p1
 %patch56 -p1
+%patch57 -p1
 %patch200 -p1
 %patch201 -p1
 
@@ -2916,6 +2921,7 @@ perl -x patchlevel.h \
     'Fedora Patch54: Fix parsing a Unicode property name when compiling a regular expression' \
     'Fedora Patch55: Fix a buffer overread when parsing a Unicode property while compiling a regular expression (RT#134133)' \
     'Fedora Patch56: Do not interpret 0x and 0b prefixes when numifying strings (RT#134230)' \
+    'Fedora Patch57: Fix a buffer overread when compiling a regular expression with many escapes (RT#134325)' \
     'Fedora Patch200: Link XS modules to libperl.so with EU::CBuilder on Linux' \
     'Fedora Patch201: Link XS modules to libperl.so with EU::MM on Linux' \
     %{nil}
@@ -5167,6 +5173,8 @@ popd
 - Fix a buffer overread when parsing a Unicode property while compiling
   a regular expression (RT#134133)
 - Do not interpret 0x and 0b prefixes when numifying strings (RT#134230)
+- Fix a buffer overread when compiling a regular expression with many escapes
+  (RT#134325)
 
 * Thu Aug 22 2019 Petr Pisar <ppisar@redhat.com> - 4:5.30.0-444
 - Fix a NULL pointer dereference in PerlIOVia_pushed()