# Original:

# $user =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("c",hex($1))/eg;
# # test for each group squid sent in its request
# foreach $group (@groups) {
# group =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("c",hex($1))/eg;

# Nach der Modifikation:

$user =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("U",hex($1))/eg;
# test for each group squid sent in its request
foreach $group (@groups) {
$group =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("U",hex($1))/eg;