In pq's Code fügst Du vor das print Dumper [$key,$$sym] einfach noch  $key =~ s/([\000-\037\177])/ '$^' . pack('c', ord($1) ^ 64) /eg; ein... Ein wenig mehr "Spieltrieb" wäre manchmal nicht verkehrt ;-)