(* List of English names from britmycolsoc.org.uk *)

maintainEnglishBMS := (
url = "http://www.britmycolsoc.org.uk/library/english-names/";
file = "mushrooms-english-BritishMycologicalSociety.htm";
match0 = "English Name(s)" ~~ __ ~~ "Non UK species";
match = RegularExpression[
   "(?i)(?s)<tr>\\s*<td>\\s*(.*?)\\s*</td>\\s*<td>\\s*(.*?)\\s*</td>\\s*</tr>"];
urlsave[url, file, textcondit];
text = Import[file, "TEXT"];
text = StringCases[text, match0];
If[text === {}, Print["Error: no match: ", match0]];
text = text[[1]];
data = StringCases[text, match -> {"$1", "$2"}];
data = Table[
   {name, syns} = dat;
   syns = StringSplit[syns, " " ... ~~ "/" ~~ " " ...];
   {name, syns}, {dat, data}];
Print["Found ", Length[data], " names in file ", file, " -> engnames"];
printnames[data // TableForm];
engnames = updatenames[data];
);