A few problems...

#!/usr/bin/perl -w
use strict;

while (my ($name, $passwd, $gid, $members) = getgrent) {
  if ($name eq "steel"){
    $members =~ s/\s/\n/g;
    print "$members\n";
  }
}
[download]

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print