And seven years to fix. Here's the output from a recent bleadperl...
[steve@sulu ~]$ /tmp/bleadperl/bin/perl5.10.0 rt_31914.pl
Test String >x<
Prematch ><
Match >x<
Postmatch ><
Num Matches >1<
Match Arrary:
>x<
----------
Test String >x<
Prematch >x<
Match ><
Postmatch ><
Num Matches >2<
Match Arrary:
>x<
><