$eingabe =~ s/%(..)/pack("c", hex($1))/ge; 
$eingabe =~ s/[([;<>\*\|&\$!#\(\)\[\]\{\}:'"\\]//g;