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