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