Splitting-Problem

[Ralf]

Hallo Klaus,
erstmal danke, dass du dir überhaupt die Zeit nimmst!!!

Irgendwie kann ich das so nicht nachvollziehen. Wie kann es sein, daß mit ser Substitutionsoperation mehr übrig bleibt, also ohne ihr?
Kannst Du eventuell etwas mehr Code posten. Relevant sind alle Anweisungen, die den Text in $value verändern (können). Aber poste bitte nicht das ganze Script.

Hier ist der relevante Teil:

read(STDIN, $input, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $input);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<([^>]|\n)*>//g;
$FORM{$name} = $value;
}

Danke!

Ralf