#!/usr/bin/perl
use strict;
use warnings;

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