#ex_07-3
#Learning Perl, Appendix A, Exercise 7.3
while (<STDIN>) {
	  ($user, $pass, $uid, $gid, $gcos) = split(/:/);
  ($real) = split(/,/, $gcos);
  print "$user is $real\n";
}