#!/afs/athena/contrib/perl/perl

while (<>) {
    s/^([^:]+:)[^:]*:/$1*:/;
    print;
}
