Trivial test script crashes perl

[walt]

This is a followup to my post about pkgsrc packages failing
because of perl crashes.  I've spent a few days trying to
narrow down the cause, and the attached perlscript is my
best effort.  {I think of it as perl haiku ;o)

Just run 'perl mytest.pl' and watch for the error.

The script itself actually does nothing, so if there is no
output, that means your perl works better than my perl.

I copied the regexp search string from intltool-merge, so
I'm hoping that one of you perl wizards out there can
simplify the regexp to the minimum that will trigger the
crash.  (I'm just a perl newbie, so I'm not even sure what
the regexp is searching for.)

The important factor is the number of chars in $str:  on my
machine, perl crashes when the string length gets over 1590
characters or so.
Attachment:
mytest.pl
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pl00000.pl
Type: application/octet-stream
Size: 1806 bytes
Desc: "Description: Perl program"
URL: <http://lists.dragonflybsd.org/pipermail/bugs/attachments/20060827/ddfed0e6/attachment-0021.obj>