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