diff -urN lib.orig/Mail/SpamAssassin/PerMsgStatus.pm lib/Mail/SpamAssassin/PerMsgStatus.pm
--- lib.orig/Mail/SpamAssassin/PerMsgStatus.pm	2004-08-05 04:48:33.000000000 +0300
+++ lib/Mail/SpamAssassin/PerMsgStatus.pm	2004-10-02 15:39:02.000000000 +0300
@@ -1111,7 +1111,7 @@
   elsif ($self->{found_encoding_quoted_printable}) {
     $_ = join ('', @{$textary});
     s/\=\r?\n//gs;
-    s/\=([0-9A-F]{2})/chr(hex($1))/ge;
+    s/\=([0-9A-F]{2})/chr(hex($1))/ige;
     my @ary = $self->split_into_array_of_short_lines ($_);
     $self->{decoded_body_text_array} = \@ary;
     return \@ary;
@@ -1487,12 +1487,12 @@
     # we just dump the high bits and keep the 8-bit characters
     s/_/ /g;
     s/=00//g;
-    s/\=([0-9A-F]{2})/chr(hex($1))/ge;
+    s/\=([0-9A-F]{2})/chr(hex($1))/ige;
   }
   else {
     # keep 8-bit stuff, forget mapping charsets though
     s/_/ /g;
-    s/\=([0-9A-F]{2})/chr(hex($1))/ge;
+    s/\=([0-9A-F]{2})/chr(hex($1))/ige;
   }
 
   return $_;