Select Code to Download

while(($name,$pass,$uid,$gid,$quota,$comment,$gcos,$dir,$shell) = getp
+went()) {
  if(!($shell =~ m/false/ || m/null/ || m//)) {
  print blah...
  }
}

...
while(<PW>) {
  ($name,$pass,$uid,$gid,$quota,$comment,$gcos,$dir,$shell) = split(/:
+/);
   print blah...
}