my @id = split /-|\s/, $ident;