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