my @groups = split ' ', `groups $ENV{USER}`;

print join('-', @groups[2 .. $#groups]) . "\n";