[pugs] regexp "bug"?

[BÁRTHÁZI András]

Hi,

This code:

my $a='A';
$a ~~ s:perl5:g/A/{chr(65535)}/;
say $a.bytes;

Outputs "0". Why?

Bye,
  Andras