{\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
}