Select Code to Download

#!/path/bin/perl
use Data::Dumper;
...
  print decode("utf8", $info{$key});
  print "\n";
}

$VAR1 = 'CreationDate';
$VAR2 = 'D:20060817180621+01\'00\'';
...
$VAR8 = "\x{4200}\x{6f00}\x{6200}\x{2000}\x{5700}\x{6500}\x{6200}\x{73
+00}\x{7400}\x{6500}\x{7200}";
$VAR9 = 'Title';
$VAR10 = "\x{4300}\x{4f00}\x{4d00}\x{5000}\x{4500}\x{5400}\x{4900}\x{5
+400}\x{4900}\x{5600}\x{4500}\x{2000}\x{5300}\x{4100}\x{4600}\x{4100}\
+x{5200}\x{4900}";