@ok = grep /^[a-zA-Z0-9.:]*\z/, @list;