Seems like there ought to be something simpler though...

$) = &{sub{
    my(@F,@G);
    while( @F = getgrent() ){
    push(@G, $F[2]) if $F[3] =~ /\b$ENV{USER}\b/; }
    return join(' ', @G); } };
[download]