Note that this bug has been fixed in 5.22.

$ 5.20t/bin/perl -e'$_ = "Hello"; print "<$1>\n" while /(?=(.*))/g;'
<Hello>

$ 5.22t/bin/perl -e'$_ = "Hello"; print "<$1>\n" while /(?=(.*))/g;'
<Hello>
<ello>
<llo>
<lo>
<o>
<>
[download]