$OpenBSD: patch-FuzzyOcr_pm,v 1.1 2012/07/09 21:04:03 giovanni Exp $
--- FuzzyOcr.pm.orig	Mon Jul  9 19:14:22 2012
+++ FuzzyOcr.pm	Mon Jul  9 19:15:16 2012
@@ -164,7 +164,7 @@ sub fuzzyocr_do {
             ){
             $fname = join('',@{$p->{'headers'}->{'content-id'}});
             $fname =~ s/[<>]//g;
-            $fname =~ tr/\@\$\%\&/_/s;
+            $fname =~ tr/\@\$\%\&\./_/s;
         }
 
         my $filename = $fname; $filename =~ tr{a-zA-Z0-9\-.}{_}cs;