--- Cache-Memcached-1.13/Memcached.pm	2004-07-08 10:10:45.000000000 +0100
+++ Cache-Memcached-1.13/Memcached.pm	2004-07-08 10:10:51.000000000 +0100
@@ -602,11 +602,10 @@
             }
 
             # do we have a complete VALUE line?
-            if ($buf{$sock} =~ /^VALUE (\S+) (\d+) (\d+)\r\n/g) {
+            if ($buf{$sock} =~ /^VALUE (\S+) (\d+) (\d+)\r\n/) {
                 ($key{$sock}, $flags{$sock}, $state{$sock}) =
                     (substr($1, $self->{namespace_len}), int($2), $3+2);
-                my $p = pos($buf{$sock});
-                pos($buf{$sock}) = 0;
+                my $p = $+[0];
                 my $len = length($buf{$sock});
                 my $copy = $len-$p > $state{$sock} ? $state{$sock} : $len-$p;
                 $ret->{$key{$sock}} = substr($buf{$sock}, $p, $copy)