diff -urN lib/Mail/SpamAssassin/PerMsgStatus.pm-2.63.orig lib/Mail/SpamAssassin/PerMsgStatus.pm
--- lib/Mail/SpamAssassin/PerMsgStatus.pm-2.63.orig	2004-01-20 23:40:04.000000000 +0200
+++ lib/Mail/SpamAssassin/PerMsgStatus.pm	2004-06-21 19:04:32.000000000 +0300
@@ -1101,7 +1101,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;
@@ -1445,12 +1445,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 $_;