| Subject: | use locale and utf8 strings hangs the module. |
Here's a simple repro case.
use locale;
my $y = 'One of the masters in this field is the software developer
[415]Craig W. ^A^A^AReynolds0_00_0. ^A^A^AHe pioneered and perfected a
model of flocking behavio
r by creating a computer program he calls “boids”. ^A^A^AMr.
^A^A^AReynolds employed three basic steering behaviors for his digital
creatures:';
utf8::upgrade($y);
$y =~ s/(\s\w\.\s+)\001/$1/sg;