#!/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";
  }
}