#!/usr/bin/perl
# Makes a knews killfile
while (<>) {
 chop;
 ($who,$name,$address,$regexp) = split/:/;
 if ($name=~ /./) {
   print "FAK||||", $name, "\n";   # Souper format
 }
}