bzw. (BROWSER) Maskierte Sonderzeichen übergeben

[Mark]

Noch mal Hallo! Ich komme der Sache allmählich näher, danke an Euch Antworter!
Es ligt wohl am Script. Jetzt komme ich aber wieder nicht weiter.
Das Script sieht so aus:

#!/usr/bin/perl
$Method = $ENV{'REQUEST_METHOD'};
if ($Method eq 'GET') {
        $Query = $ENV{'QUERY_STRING'};
}
else {
        read(STDIN,$Query,$ENV{'CONTENT_LENGTH'});
}

foreach (split(/[&;]/, $Query)) {           # hier liegt wohl
        s/+/ /g;                           # irgendwo der Fehler!
        ($key, $value) = split('=', $_);
        $key =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge;
        $value =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge;
        $Data{$key} = $value;
}

open(FOTO,"foto.html") or Error("Fehler: foto.html kann nicht geöffnet werden", $!);
  while (<FOTO>) {
  next if (/^#/);
  s/%bild%/$Data{bild}/g;
  s/%titel%/$Data{titel}/g;
  s/%seite%/$Data{seite}/g;
  $Text .= "$_";
  }
close(FOTO);

print "Content-type: text/html\n\n";
print "$Text\n";