if (($x,$y,$arch) =
m/^\{\{ chart\ label \|(\d+)\|(\d+)\| .*
(?: \<big\>)? \'+
- \[\[ [^][\']* \| (\S+)\ archipelago \]\]
+ \[\[ [^][\']* \| ([^][\'|]+)\ archipelago \]\]
\'+ (?: \<\/big\>)? \}\}$/xi) {
printf DEBUG "%2d,%-2d arch %s\n", $x,$y,$arch;
push @wiarchlabels, [ $x,$y,$arch ];