%FormData = split(/=/, $Part);

##</code><code>##

my ($name, $value) = split /=/, $Part;
$FormData{$name} = $value;