if ($identnr =~m/^\d[*]$/)