--- PerMsgStatus.pm.orig	2015-04-28 21:56:49.000000000 +0200
+++ PerMsgStatus.pm	2017-07-05 09:23:41.655689000 +0200
@@ -918,7 +918,7 @@
 
   # in case the last line was huge, trim it back to around 200 chars
   local $1;
-  $str =~ s/^(.{,200}).*$/$1/gs;
+  $str =~ s/^(.\{,200}).*$/$1/gs;
 
   # now, some tidy-ups that make things look a bit prettier
   $str =~ s/-----Original Message-----.*$//gs;