#!/usr/bin/perl
# Makes a slrn scorefile 
print "[*]\nScore:: -9999\n";
while (<>) {
 chop;
 ($who,$name,$address,$regexp) = split/:/;
 $name=~ s/\./\\\./ ;   
 $name=~ s/\@/\\\@/ ;
 if ($name =~ /./) {
   print "   From: ", $name, "\n";   # slrn format
 }
}