diff --git a/perl-5.8.8-U27512.patch b/perl-5.8.8-U27512.patch
index c7e60f9..fe6770b 100644
--- a/perl-5.8.8-U27512.patch
+++ b/perl-5.8.8-U27512.patch
@@ -113,91 +113,3 @@
  #endif
  
  #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
---- perl-5.8.8/lib/overload.t.U27512	2006-06-01 19:13:06.000000000 -0400
-+++ perl-5.8.8/lib/overload.t	2006-06-01 19:13:32.000000000 -0400
-@@ -47,7 +47,7 @@
- package main;
- 
- $| = 1;
--use Test::More tests=>496;
-+use Test::More tests => 508;
- 
- 
- $a = new Oscalar "087";
-@@ -1173,3 +1173,76 @@
-     like('x:a:a:=', qr/x$a$a=$/);
- 
- }
-+
-+{
-+    package Sklorsh;
-+    use overload
-+	bool     => sub { shift->is_cool };
-+
-+    sub is_cool {
-+	$_[0]->{name} eq 'cool';
-+    }
-+
-+    sub delete {
-+	undef %{$_[0]};
-+	bless $_[0], 'Brap';
-+	return 1;
-+    }
-+
-+    sub delete_with_self {
-+	my $self = shift;
-+	undef %$self;
-+	bless $self, 'Brap';
-+	return 1;
-+    }
-+
-+    package Brap;
-+
-+    1;
-+
-+    package main;
-+
-+    my $obj;
-+    $obj = bless {name => 'cool'}, 'Sklorsh';
-+    $obj->delete;
-+    ok(eval {if ($obj) {1}; 1}, $@ || 'reblessed into nonexist namespace');
-+
-+    $obj = bless {name => 'cool'}, 'Sklorsh';
-+    $obj->delete_with_self;
-+    ok (eval {if ($obj) {1}; 1}, $@);
-+    
-+    my $a = $b = {name => 'hot'};
-+    bless $b, 'Sklorsh';
-+    is(ref $a, 'Sklorsh');
-+    is(ref $b, 'Sklorsh');
-+    ok(!$b, "Expect overloaded boolean");
-+    ok(!$a, "Expect overloaded boolean");
-+}
-+{
-+    use Scalar::Util 'weaken';
-+
-+    package Shklitza;
-+    use overload '""' => sub {"CLiK KLAK"};
-+
-+    package Ksshfwoom;
-+
-+    package main;
-+
-+    my ($obj, $ref);
-+    $obj = bless do {my $a; \$a}, 'Shklitza';
-+    $ref = $obj;
-+
-+    is ($obj, "CLiK KLAK");
-+    is ($ref, "CLiK KLAK");
-+
-+    weaken $ref;
-+    is ($ref, "CLiK KLAK");
-+
-+    bless $obj, 'Ksshfwoom';
-+
-+    like ($obj, qr/^Ksshfwoom=/);
-+    like ($ref, qr/^Ksshfwoom=/);
-+
-+    undef $obj;
-+    is ($ref, undef);
-+}
diff --git a/perl.spec b/perl.spec
index e970d15..06b7a8b 100644
--- a/perl.spec
+++ b/perl.spec
@@ -159,6 +159,17 @@ Patch188841:	perl-5.8.8-bz188441.patch
 #
 Patch191416:	perl-5.8.8-bz191416.patch
 
+Patch27116:	perl-5.8.8-U27116.patch
+Patch27391:     perl-5.8.8-U27391.patch
+Patch27426:	perl-5.8.8-U27426.patch
+Patch27509:     perl-5.8.8-U27509.patch
+Patch27512:     perl-5.8.8-U27512.patch
+Patch27604:     perl-5.8.8-U27604.patch
+Patch27605:     perl-5.8.8-U27605.patch
+Patch27914:     perl-5.8.8-U27914.patch
+Patch27329:     perl-5.8.8-U27329.patch
+Patch36:	perl-5.8.8-R-switch.patch
+
 BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 BuildRequires:  gawk, grep, tcsh, dos2unix, man, groff
 BuildRequires:  gdbm-devel, db4-devel
@@ -342,6 +353,26 @@ more secure running of setuid perl scripts.
 
 %patch191416 -p1
 
+%patch27116 -p1
+
+%patch27391 -p1
+
+%patch27426 -p1
+
+%patch27509 -p1
+
+%patch27512 -p1
+
+%patch27604 -p1
+
+%patch27605 -p1
+
+%patch27914 -p1
+
+%patch27329 -p1
+
+%patch36    -p1
+
 # Candidates for doc recoding (need case by case review):
 # find . -name "*.pod" -o -name "README*" -o -name "*.pm" | xargs file -i | grep charset= | grep -v '\(us-ascii\|utf-8\)'
 recode()
@@ -546,6 +577,29 @@ rm -rf $RPM_BUILD_ROOT
 %endif
 
 %changelog
+* Thu Jun 01 2006 Jason Vas Dias <jvdias@redhat.com> - 4:5.8.8-6
+- Fix upstream perl bug 38454:
+  'rindex corrects for $[ on bytes rather than UTF-8'
+  apply upstream patch #27116
+- Fix upstream perl bug 24816:
+  'Magic vars seem unsure if they are purely numeric' 
+  ( perl -wle 'print $? = $? ^ "3"' -> 'Argument "^C" isn't numeric' )
+  apply upstream patch #27391
+- Avoid writing over the input string in the case 'F' in moreswitches.
+  apply upstream patch #27426
+- Fix upstream perl bug 38925 - 'overload and rebless' -
+  apply upstream patches #27509, #27512
+- Fix upstream perl bug 3038 - '$qr = qr/^a$/m; $x =~ $qr; fails'
+  apply upstream patch #27604
+- apply upstream patch #27605 - 'Fix off-by-one in $0 set magic.'
+- Fix upstream perl bug 23141 - '($_) = () fails to set $_ to undef'
+  apply upstream patch #27914
+- Fix upstream perl bug 38619 - 
+  'Bug in lc and uc (interaction between UTF-8, substr, and lc/uc)'
+  apply upstream patch #27329
+- Give users the '-R' option to disable the Red Hat
+  module compatibility default search path extension (incpush.patch).
+
 * Thu May 11 2006 Jason Vas Dias <jvdias@redhat.com> - 4:5.8.8-6
 - Fix bug 191416: make h2ph generate correct code for cpp statements
   like: '#if defined A || defined B'