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

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

but you really should read and understand How do I post a question effectively?