typographische Anführungszeichen ersetzen

[Struppi]

Ich würde diese nun gerne, wenn ich die üblichen Ersetzungsfunktionen vornehme:
read(STDIN, my $buffer, $ENV{'CONTENT_LENGTH'});

Splitten der name-value pairs

my @pairs = split(/&/, $buffer);
foreach my $pair (@pairs) {
  my ($name, $value) = split(/=/, $pair);
  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  .....
}

üblicher wäre hier die Verwendung von use CGI;
und dann einfach die von Rolf gezeigt Ersetzung auf den Parameter anwenden.

Struppi.