#!/usr/bin/perl
# Makes an nn killfile
# Needs work - must fit into small area, for strange nn killfile format
while (<>) {
 chop;
 ($who,$name,$address,$regexp) = split/:/;
 if ($name=~ /./) {
   print ":!n=:", $name, "\n";   # nn format
 }
}