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