if($identnr =~m/^\<d{7,10}[AB]?$/) {