Help for this page

Select Code to Download


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