Well, as virtualsue and I pointed out in the CB using \s for this is probably a bad call as \s also matches \n. So you would be better off using a character class. Your pattern match isnt doing a whole lot because you are performing the substition on $_ and not on $members.

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

In future please do not use pre tags. Use CODE tags and indent your script before posting. Its not such an issue with a snippet this small but for anything larger its a right pain.

HTH :-)

Yves / DeMerphq
---
Writing a good benchmark isnt as easy as it might look.