#!/usr/bin/perl -w
print "Enter a list in /etc/passwd format : \n";
chomp(@input = <>);
print("Users with duplicate printable first names.\n");
foreach (@input)
{
   $name = (split(/:/)) [4];
   $name =~ s/[ ,\/](.*)//;
   $dup{$name}++;
}
foreach $key (keys %dup)
{
   if($dup{$key} > 1)
   {
      foreach(@input)
      {
         $name = (split(/:/)) [4];
         $name =~ s/[,\/](.*)//;
         print "$name\n" if $key && $name =~ /^$key/; 
      }
   }
}