I don't recall who is the author of this script.

memcached-clean.pl

#!/usr/bin/perl

use 5.10.0;

use Cache::Memcached;
use Data::Dumper;
use MIME::Base64;

use strict;

my $server = "127.0.0.1:11211";

my $memcached = new Cache::Memcached {
    'servers' => [ $server ],
    'debug' => 0
};
my @items = split(/\r\n/, $memcached->stats("items")->{hosts}->{$server}->{items});
my %buckets = ();
foreach my $bucket (@items) {
  $bucket =~ s/^.*:(.*):.*$/$1/ig;
  $buckets{$bucket} = 1;
}

foreach my $bucket (sort keys %buckets) {
  my @lines = split(/\r\n/, $memcached->stats("cachedump $bucket 0")->{hosts}->{$server}->{"cachedump $bucket 0"});
  foreach my $ticket (@lines) {
    $ticket =~ /^ITEM (?<item>.*) \[(?<bytes>\d+) b; (?<expire>\d+) s\]$/ig;
    printf("%s: %s bytes: expires %s (%s)\n%s\n", $+{item}, $+{bytes}, $+{expire}, scalar(gmtime($+{expire})), $memcached->get($+{item}));
  }
}

$memcached->disconnect_all;