{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fcharset0 Arial;}}
{\*\generator Msftedit 5.41.15.1507;}\viewkind4\uc1\pard\f0\fs20 my %chash;\par
my %chash;\par
while ($binstr =~ m#(<ref(?:>|
^>*>)(?:(?:(?!</ref>).)+)</ref>)#isg)\{\par
my $cline=$1;\par
my $reference;\par
my $etal;\par
\tab\par
\tab my ($id)=$cline =~ m#<ref id="(
^"*)">#is;\par
\par
\tab my ($year)=$cline =~ m#<Year>((?:(?!</Year>).)+)</Year>#is;\par
\tab\par
\tab\tab my @bibauthor; \par
\par
\par
\tab\tab while ($cline =~ m#<surname>((?:(?!</surname>).)+)</surname>#isg)\tab\tab\par
\tab\tab\{ my $con=$1;\par
\tab\tab\tab \par
\tab\tab\tab\tab push(@bibauthor,$con); \par
\tab\tab\tab\par
\tab\tab\}\par
\par
\par
\tab\tab my $i =$#bibauthor -1;\par
\par
\tab\tab for my $j(0..$i)\par
\tab\tab\{\par
\tab\tab\tab $reference .='van '.quotemeta($bibauthor
$j).'
, \\(\\)&\\#38;*';\par
\tab\tab\tab\par
\tab\tab\}\par
\par
\par
\tab\tab\par
\tab\tab if($i eq '-1')\par
\tab\tab\{\par
\par
\tab\tab $reference =~ s#^#$bibauthor[0].'
\\, \\(\\)*'.'(?:(?:\\d\{4\}
\\, \\(\\)*)</ref>)*)'.$year#ise;\par
\tab\tab $chash\{$reference\}=$id;\par
\par
\par
\tab\tab\}\par
\tab\tab elsif($i eq '0')\par
\tab\tab\{ my $t=$i+1;\par
\tab\tab\tab $reference =~ s#$#'
\\, and \\(\\)&\\#38 *'.$bibauthor
$t.'
\\, \\(\\)*'.'(?:(?:\\d\{4\}
\\, \\(\\)*)</ref>)*)'.$year#ise;\par
\tab\tab\tab $chash\{$reference\}=$id;\par
\tab\tab \}\par
\tab\tab else\tab \{\par
\tab \tab my $t=$i+1;\par
\tab \tab\par
\tab\tab\tab\par
\tab\tab\tab $reference =~ s#$#'
\\, and \\(\\)&\\#38 *'.$bibauthor
$t.'
\\, \\(\\)*'#ise;\par
\tab\tab\tab $etal ='(?:'.$reference.'|'.$bibauthor[0].'
\\, et al\\., \\(\\)*'.')'.'(?:(?:\\d\{4\}
\\, \\(\\)*)</ref>)*)'.$year;\par
\tab\tab\tab $chash\{$etal\}=$id;\tab\tab\tab\par
\}\par
\tab \par
\tab \par
\tab\tab\par
\tab\par
\tab\}\par
\tab\par
\par
\tab\par
\}\par
\par
\par
\par
my @creference=keys %chash;\par
for my $ref(@creference)\par
\{\par
\par
$binstr =~ s#($ref)#<cite refid="$chash\{$ref\}">$1</ref>#isg;\par
\}\par
\par
$input =~ m#(<ref
^><*>)\\(((?:(?:(?!</ref>).)+)</ref>;((?:
*<ref
^><*>
^\\((?:(?:(?!</ref>).)+)
^\\)</ref>
;*)*)<ref
^><*>
^\\((?:(?:(?!</ref>).)+))\\)(</ref>)#\\($1$2$3\\)#isg;\par
\par
\par
\par
}
