#!/usr/bin/perl
# Makes an rn killfile
while (<>) {
 chop;
 ($who,$name,$address,$regexp) = split/:/;
 $regexp =~ s/\./\\\./ ;   
 $regexp =~ s/\@/\\\@/ ;
 if ($regexp =~ /./) {
   print "/", $regexp, "/f:j\n";
 }
}
print "\n";