#!/bin/perl5 -w

$\ = "\n";

while (<>) {
    chomp;
    if (/^[ \d].*/)
    {
	$name = substr($_,57,25);
	push @names, ($name);
    }
}

$oldname = "";

for $name (sort(@names))
{
    if (lc($name) ne lc($oldname)) {print $name}
    $oldname = $name;
}