(* List of Russian family names from ru.wikipedia.org *)

maintainRussianWiki := (
url = "https://ru.wikipedia.org/wiki/%D0%A1%D0%BF%D0%B8%D1%81%D0%BE%D0%BA_%D1%82%D0%B0%D0%BA%D1%81%D0%BE%D0%BD%D0%BE%D0%B2_%D0%B3%D1%80%D0%B8%D0%B1%D0%BE%D0%B2";
file = "mushrooms-russian-wiki.htm"; 
match0 = 
  "\:0433\:0440\:0438\:0431\:043e\:043f\:043e\:0434\:043e\:0431\:043d\
\:044b\:0445 \:043e\:0440\:0433\:0430\:043d\:0438\:0437\:043c\:043e\
\:0432 \:0441\:043e\:0433\:043b\:0430\:0441\:043d\:043e \:0431\:0430\
\:0437\:0435 \:0434\:0430\:043d\:043d\:044b\:0445" ~~ __ ~~ 
   "\:041f\:0440\:0438\:043c\:0435\:0447\:0430\:043d\:0438\:044f</span><span";
match = RegularExpression[
   "(?i)<li>.{3,200}<a href=\".{3,444}\">\\s*(.{3,50}?)\\s*</a></span>.* \:2014 <a href=\".{3,555}?\">\\s*(.{3,50}?)\\s*</a>"];
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"}];
Print["Found ", Length[data], " families and other items in file ", file, " -> rusfnames"];
printnames[data // TableForm];
rusfnames = data;
);