diff --git a/Parse-RecDescent-1.967002-utf8.patch b/Parse-RecDescent-1.967002-utf8.patch
new file mode 100644
index 0000000..43bb884
--- /dev/null
+++ b/Parse-RecDescent-1.967002-utf8.patch
@@ -0,0 +1,33 @@
+diff -up Parse-RecDescent-1.967002/Changes.utf8 Parse-RecDescent-1.967002/Changes
+--- Parse-RecDescent-1.967002/Changes.utf8	2012-01-30 03:13:13.000000000 +0000
++++ Parse-RecDescent-1.967002/Changes	2012-01-30 16:22:52.599253728 +0000
+@@ -531,7 +531,7 @@ Revision history for Parse-RecDescent
+ 
+     - Fixed nit in debugging of conditional regexes (thanks, Brian)
+ 
+-    - Moved expectation creation to compile-time (thanks François)
++    - Moved expectation creation to compile-time (thanks François)
+ 
+     - Removed redundant inheritances (i.e. @ISA elements)
+       in internal namespace (thanks Hugo)
+diff -up Parse-RecDescent-1.967002/demo/demo_dot.pl.utf8 Parse-RecDescent-1.967002/demo/demo_dot.pl
+--- Parse-RecDescent-1.967002/demo/demo_dot.pl.utf8	2012-01-30 16:22:52.580253741 +0000
++++ Parse-RecDescent-1.967002/demo/demo_dot.pl	2012-01-30 16:22:52.626253709 +0000
+@@ -10,7 +10,7 @@ Received: (from root@localhost)
+ 	Wed, 20 Oct 1999 21:29:05 +0200
+ Date: Wed, 20 Oct 1999 21:29:05 +0200
+ Message-Id: <199910201929.VAA00889@bib.adnintern.org>
+-From: "Stéphane Payrard -- stef@adnaccess.com (06 60 95 82 69)" <stef@adnaccess.com>
++From: "Stéphane Payrard -- stef@adnaccess.com (06 60 95 82 69)" <stef@adnaccess.com>
+ To: damian@cs.monash.edu.au
+ Subject: parsing dot file
+ Reply-to: stef@adnaccess.com
+@@ -39,7 +39,7 @@ my $graph = "$DOTSRC/graphs";
+ # $::RD_AUTOSTUB=1;
+ # $::RD_TRACE=1;
+ 
+-#  'strict'(?) pas accepté
++#  'strict'(?) pas accepté
+ $gram = <<'EOF';
+ 
+ graph:        comment(?) strict(?)  ( 'digraph' | 'graph' ) id  '{' stmt_list '}'
diff --git a/Parse-RecDescent-1.967015.tar.gz b/Parse-RecDescent-1.967015.tar.gz
new file mode 100644
index 0000000..a9ceb7b
Binary files /dev/null and b/Parse-RecDescent-1.967015.tar.gz differ
diff --git a/perl-Parse-RecDescent.spec b/perl-Parse-RecDescent.spec
new file mode 100644
index 0000000..c9583ca
--- /dev/null
+++ b/perl-Parse-RecDescent.spec
@@ -0,0 +1,76 @@
+Name:           perl-Parse-RecDescent
+Version:        1.967015
+Release:        1
+Summary:        Generate Recursive-Descent Parsers
+License:        (GPL+ or Artistic) and (GPLv2+ or Artistic)
+URL:            https://metacpan.org/release/Parse-RecDescent
+Source0:        https://cpan.metacpan.org/authors/id/J/JT/JTBRAUN/Parse-RecDescent-%{version}.tar.gz
+# UTF-8
+Patch0:         Parse-RecDescent-1.967002-utf8.patch
+BuildArch:      noarch
+
+BuildRequires:  coreutils
+BuildRequires:  findutils
+BuildRequires:  make
+BuildRequires:  perl-interpreter
+BuildRequires:  perl-generators
+BuildRequires:  perl(ExtUtils::MakeMaker) >= 6.58
+BuildRequires:  perl(warnings)
+BuildRequires:  perl(Carp)
+BuildRequires:  perl(Data::Dumper)
+BuildRequires:  perl(strict)
+BuildRequires:  perl(Text::Balanced) >= 1.95
+BuildRequires:  perl(vars)
+BuildRequires:  perl(Test::More)
+BuildRequires:  perl(Test::Pod) >= 1.14
+BuildRequires:  perl(Test::Warn)
+Requires:       perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version))
+Requires:       perl(Data::Dumper)
+
+%description
+Parse::RecDescent incrementally generates top-down recursive-descent
+text parsers from simple yacc-like grammar specifications. It
+provides:
+
+ * Regular expressions or literal strings as terminals (tokens)
+ * Multiple (non-contiguous) productions for any rule
+ * Repeated and optional subrules within productions
+ * Full access to Perl within actions specified as part of the grammar
+ * Simple automated error reporting during parser generation and parsing
+ * The ability to commit to, uncommit to, or reject particular
+   productions during a parse
+ * The ability to pass data up and down the parse tree ("down" via
+   subrule argument lists, "up" via subrule return values)
+ * Incremental extension of the parsing grammar (even during a parse)
+ * Precompilation of parser objects
+ * User-definable reduce-reduce conflict resolution via "scoring" of
+   matching productions
+
+%prep
+%setup -q -n Parse-RecDescent-%{version}
+
+%patch0 -p1
+
+chmod -c a-x demo/* tutorial/*
+perl -pi -e 's|^#!\s?/usr/local/bin/perl\b|#!/usr/bin/perl|' demo/*
+
+%build
+perl Makefile.PL INSTALLDIRS=vendor
+make %{?_smp_mflags}
+
+%install
+make pure_install DESTDIR=%{buildroot}
+find %{buildroot} -type f -name .packlist -delete
+%{_fixperms} -c %{buildroot}
+
+%check
+make test
+
+%files
+%doc Changes README ToDo demo/ tutorial/
+%{perl_vendorlib}/Parse/
+%{_mandir}/man3/Parse::RecDescent.3*
+
+%changelog
+* Thu Jun 30 2022 misaka00251 <misaka00251@misakanet.cn> - 1.967015-1
+- Init package (Thanks to fedora team)