format bug in vmsperl

[ggl.20.jjpon]

Greetings all,

I need some help with format under vmsperl.
Please look at the following sample perl program::

#!/usr/bin/perl

my $str = "First line" . chr(13) .
"Second line should wrap at thirty chars" . chr(13) .
"Next line". chr(13) .
"Last line". chr(13);

format STDOUT =
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~~
$str
..

write;


On Activestate perl v5.8.7 (running on Windows XP) I get the expected
outputt:
First line
Second line should wrap at
thirty characters
Next line
Last line

But on VMS perl v5.6.1, it gives me insufficient output:
First line
Second line should wrap at
thirty characters
Next line

The VMS platform is OpenVMS v7.3-2 on an Alphaserver DS10.

Can somebody please try it and confirm the bug.
Maybe even provide a work around or fix to this?

Thanks in advance,

Juna