Help for this page
$swiss = 'P07445'; warn "swiss='$swiss'\n"; my @rer; $rer[0] = $swiss =~ /^\p{IsAlpha}/;
swiss='P07445' panic: Something requested a negative number of bytes of malloc.