Wiktionary:Todo/Also appearing twice

time perl -wne ' BEGIN
                   { $/ = "</page>\n"; }
                 next unless m{<ns>0</ns>};
                 m{<title>([^<]+)</title>} or die;
                 my $title = $1;
                 m{<text xml:space="preserve">([^<]+)</text>}
                   or m{<text xml:space="preserve" />()} or die;
                 $_ = "$1\n";
                 print "$title\n" if m/{{\s*also\s*[|].*{{\s*also\s*[|]/s
               ' enwiktionary-20121230-pages-articles.xml
Last modified on 1 January 2013, at 21:19