Select Code to Download

$ perl -Mstrict -Mutf8 -MBerkeleyDB -MEncode -MData::Dumper -le '
  unlink "xx.db";
...
<<store: $VAR1 = "\303\244";
>>fetch: $VAR1 = "\303\244";
<<fetch: $VAR1 = "\x{e4}";

>>store_key: $VAR1 = "\x{e4}\x{fc}";
<<store_key: $VAR1 = "\303\244\303\274";
>>store_key: $VAR1 = "\x{e4}\x{e4}";
<<store_key: $VAR1 = "\303\244\303\244";

>>store_key: $VAR1 = "\x{e4}";
<<store_key: $VAR1 = "\303\244";
>>fetch_key: $VAR1 = "\x{e4}\x{e4}";
<<fetch_key: $VAR1 = "\x{fffd}\x{fffd}";

  my $check=qr/\A\Q$prefix\E(.)?/;

...
      }
    } while( ($rc=$cursor->c_get($k, $v, DB_NEXT))==0 and $k=~$check )
+;
  }