diff --git a/a2ps-perl.patch b/a2ps-perl.patch
new file mode 100644
index 0000000..0b9bc97
--- /dev/null
+++ b/a2ps-perl.patch
@@ -0,0 +1,15 @@
+diff -up a2ps-4.13/sheets/perl.ssh.perl a2ps-4.13/sheets/perl.ssh
+--- a2ps-4.13/sheets/perl.ssh.perl	2007-09-26 10:30:43.000000000 +0100
++++ a2ps-4.13/sheets/perl.ssh	2007-09-26 10:47:47.000000000 +0100
+@@ -106,9 +106,9 @@ operators are
+     (/(s|tr)/			# 1. The command: `tr' or `s'
+      /(([[:punct:]])/		# 2. The delimiter
+      /(/			# 3. The *two* regexps
+-     /(.|\\\\.)*/		#   First regexp
++     /(\\\\.)*/			#   First regexp
+      /\\3/			#   Separator
+-     /(.|\\\\.)*/		#   Second Regexp
++     /(\\\\.)*/			#   Second Regexp
+      /)/			#
+      /\\3)/			# Closer
+      \1 Keyword_strong, \2 Plain),
diff --git a/a2ps.spec b/a2ps.spec
index 986e35b..cbde349 100644
--- a/a2ps.spec
+++ b/a2ps.spec
@@ -1,7 +1,7 @@
 Summary: Converts text and other types of files to PostScript(TM)
 Name: a2ps
 Version: 4.13b
-Release: 68%{?dist}
+Release: 69%{?dist}
 License: GPLv2+
 Group: Applications/Publishing
 #Source0: ftp://ftp.enst.fr/pub/unix/a2ps/%{name}-%{version}.tar.gz 
@@ -22,6 +22,7 @@ Patch5: a2ps-4.13-varargs.patch
 Patch6: a2ps-tmpdir.patch
 Patch7: a2ps-sort.patch
 Patch8: a2ps-iso5-minus.patch
+Patch9: a2ps-perl.patch
 # EUC-JP support
 Patch10: a2ps-4.13-eucjp.patch.bz2
 Patch11: a2ps-4.13-autoenc.patch
@@ -85,6 +86,7 @@ touch -r configure.in __timestamp_configure.in
 %patch6 -p1 -b .tmpdir
 %patch7 -p1 -b .sort
 %patch8 -p1 -b .iso5-minus
+%patch9 -p1 -b .perl
 
 %patch10 -p1 -b .euc
 %patch11 -p1 -b .ae
@@ -267,6 +269,9 @@ exit 0
 %dir %{_datadir}/a2ps
 
 %changelog
+* Wed Sep 26 2007 Tim Waugh <twaugh@redhat.com> 4.13b-69
+- Try out a perl stylesheet speed improvement (bug #252183).
+
 * Tue Sep 25 2007 Tim Waugh <twaugh@redhat.com> 4.13b-68
 - Make minus sign work in ISO-8859-5 (bug #252314).