#!/usr/bin/perl -w
print "Enter a list in /etc/passwd format : \n";
chomp(@input = <>);
print("   User                   Real Name\n");
print("============ ==============================\n");
foreach (@input)
{
	($user, $name) = (split(/:/)) [0, 4];
	$name =~ s/[,\/](.*)//;
	printf ("%12s %30s\n", $user, $name);
}