sub obscure {
   my ($self, $s) = @_;

   my %tags = qw/fred x wilbur x/;

   return join '&',
        map { my ($n,$v) = split /=/; 
              ( exists( %tags{$n} )) ? "$n=".'*' x length($v) : $_ }
        split /\&/, $s;
}