# unescaped value must be 'абв, где'
    # Escaped value, line #132
    if (index($value, '%') >= 0) {
      print "$charset\n";           # 'utf-8'
      print "$value\n";             # %D0%B0%D0%B1%D0%B2%2C %D0%B3%D0%B4%D0%B5
      url_unescape $value;
      print "$value\n";             # абв, ??????
      print Data::Dumper->Dumper($value)."\n";  # $VAR2 = "\x{430}\x{431}\x{432}, \x{fffd}\x{fffd}\x{fffd}\x{fffd}\x{fffd}\x{fffd}";
      my $backup = $value;
      decode $charset, $value if $charset;
      $value = $backup unless defined $value;
    }