#!/usr/bin/perl -w 
while (($name,$passwd,$gid,$members)=getgrent){
        if ($name eq "steel"){
       s/\w/\n/g;
        print "$members\n";
       }
}