read(STDIN, $Daten, $ENV{'CONTENT_LENGTH'});

$Daten =~ s/%3E/\>\;/g;
$Daten =~ s/%3C/\<\;/g;
$Daten =~ tr/&=+/| -/;
$Daten =~ s/Name/\ \;/g;
$Daten =~ s/Firstname/\ \;/g;
$Daten =~ s/Street/\ \;/g;
$Daten =~ s/Nr/\ \;/g;
$Daten =~ s/%2F/\/\;/g;
$Daten =~ s/Code/\ \;/g;
$Daten =~ s/City/\ \;/g;
$Daten =~ s/Tel/\ \;/g;
$Daten =~ s/Email/\ \;/g;
$Daten =~ tr/;/ /;

$Daten =~ s/[ ]| //gi;
#$Daten =~ s/+/\-\;/g;

#! /usr/bin/perl
use warnings;
use strict;
use CGI;

my $cgi = CGI->new();
my %params = $cgi->Vars(); # als Hash
my $name = $cgi->param('name'); # oder nur einen einzelnen wert