#!/usr/local/bin/perl
open(NAMES,"/pub/cs/dputnam/cs113a/passwd");
@personal=split(":",$_);
foreach(@personal){
 print"$_\n";
 @next=split(",",$_);
 foreach(@next){
 @after=split(" ",$_);
   print"$_";
  }
}
close NAMES;