--- a/account.pm	Tue Dec 13 22:47:23 2011 +0100
+++ b/account.pm	Wed Dec 14 09:56:05 2011 +0100
@@ -480,8 +480,8 @@
         my $ml   = join( ", ", $e->get_value(AT_ADDRESS) ) || "";           # ??
         my $mg   = join( ", ", $e->get_value(AT_GROUP) ) || "";             # ??
         my $forw = join( ", ", $e->get_value(AT_FORWARDINGADDRESS) ) || "";
-        my $ag   = join ',$', split /,/, $e->get_value(AT_ACLGROUPS);
-        $ag = "\$$ag" if $ag;
+        my $ag   = $e->get_value(AT_ACLGROUPS);
+        $ag      = '$' . join ',$', split /,/, $ag if $ag;
 
         print "$uid: $cn <$mr>";