$_ =~ /<FN1>([^<].+)<\/FN1>/;
$found = $1;
$_ =~ s/<FN1ref>/<FN1>$found<\/FN1>/g;