diff --git a/file-5.30-bump-perl-to-exceed-c.patch b/file-5.30-bump-perl-to-exceed-c.patch
new file mode 100644
index 0000000..abcc90e
--- /dev/null
+++ b/file-5.30-bump-perl-to-exceed-c.patch
@@ -0,0 +1,37 @@
+From a69d6d074116d4c026d14725995988810c5fbebb Mon Sep 17 00:00:00 2001
+From: Christos Zoulas <christos@zoulas.com>
+Date: Tue, 21 Feb 2017 18:34:55 +0000
+Subject: [PATCH] bump perl to exceed 'c'
+
+Upstream-commit: 3c60e59aee7425ba599d208678b62efa9a4a1d3f
+Signed-off-by: Kamil Dudka <kdudka@redhat.com>
+---
+ magic/Magdir/perl | 10 +++++-----
+ 1 file changed, 5 insertions(+), 5 deletions(-)
+
+diff --git a/magic/Magdir/perl b/magic/Magdir/perl
+index bbe10ba..3423b5c 100644
+--- a/magic/Magdir/perl
++++ b/magic/Magdir/perl
+@@ -33,14 +33,14 @@
+ 
+ # by Dmitry V. Levin and Alexey Tourbin
+ # check the first line
+-0	search/1024	package
++0	search/8192	package
+ >0	regex		\^package[\ \t]+[0-9A-Za-z_:]+\ *;	Perl5 module source text
+-!:strength + 10
++!:strength + 40
+ # not 'p', check other lines
+-0	search/1024	!p
++0	search/8192	!p
+ >0	regex		\^package[\ \t]+[0-9A-Za-z_:]+\ *;
+ >>0	regex		\^1\ *;|\^(use|sub|my)\ .*[(;{=]	Perl5 module source text
+-!:strength + 10
++!:strength + 75
+ 
+ # Perl POD documents
+ # From: Tom Hukins <tom@eborcom.com>
+-- 
+2.7.4
+
diff --git a/file.spec b/file.spec
index 4157e1a..a5c0c55 100644
--- a/file.spec
+++ b/file.spec
@@ -26,6 +26,7 @@ Patch17: file-5.24-varied.patch
 # picked from upstream
 Patch18: file-5.30-fix-debug-info-reversed-logic.patch
 Patch19: file-5.30-keep-not-stripped-last.patch
+Patch20: file-5.30-bump-perl-to-exceed-c.patch
 
 URL: http://www.darwinsys.com/file/
 Requires: file-libs = %{version}-%{release}
@@ -192,6 +193,7 @@ cd %{py3dir}
 
 %changelog
 * Thu Feb 23 2017 Kamil Dudka <kdudka@redhat.com> - 5.30-4
+- increase strength of perl modules to exceed C sources (#772651)
 - drop non-upstream file-5.14-perl.patch (#1051598)
 - drop undocumented non-upstream file-5.10-strength.patch (#772651)