Another option might be to use Text::Abbrev on the returned value Discover card and see if the "expected value" Discover is in fact a unique "abbreviation".

--
I'm not belgian but I play one on TV.