#!/usr/bin/perl
# Makes a Gnus scorefile 
print "(\"from\"\n";
while (<>) {
 chop;
 ($who,$name,$address,$regexp) = split/:/;
 if ($regexp =~ /./) {
   print "  (\"", $regexp, "\" -10000 nil s)\n";   # Gnus format
 }
}
print ")\n";