I wonder what vi has to do with it. Next time, please show some code, and indicate what went wrong (did you get an error message? Unexpected results?)

But you might want to use *grent:

#!/usr/bin/perl

use strict;
use warnings 'all';

setgrent;  

while (my ($name, $passwd, $gid, $members) = getgrent) {
    print "$gid: $name: $members\n";
}

endgrent;  

__END__
[download]

The setgrent and endgrent are optional.

Abigail