#!/usr/bin/perl
# Makes a tin killfile
while (<>) {
 chop;
 ($who,$name,$address,$regexp) = split/:/;
 if ($name =~ /./) {
   print "2 K\n0\n*", $name, "*\n";   # tin format
 }
}