$swiss = 'P07445';
  warn "swiss='$swiss'\n";
  my @rer;
  $rer[0] = $swiss =~ /^\p{IsAlpha}/;

##</code><code>##

  swiss='P07445'
  panic: Something requested a negative number of bytes of malloc.