--- /usr/local/lib/perl5/5.6.1/CGI/Cookie.pm
+++ /usr/local/lib/perl5/5.6.1/CGI/Cookie.pm.new
@@ -42,7 +42,7 @@

     my(@pairs) = split("; ?",$raw_cookie);
     foreach (@pairs) {
-      s/\s*(.*?)\s*/$1/;
+      s/^\s+//; s/\s+$//;
       if (/^([^=]+)=(.*)/) {
        $key = $1;
        $value = $2;