Bug#869955: warning with perl 5.26

[Francois Mescam]

I've made some test about this error and to trim to 200 caracters the 
string I modify line 923 to :

$str =~ s/^(.{0,200}).*$/$1/gs;

With perl 5.26 there no warning and it gives the result explained by the 
comment.


--
 Francois Mescam