open(IN, "<$file_name_xml") || die "\n Can't open file\n $!\n";
open(OUT,">temp.out");
while(<IN>)
{
    my %data = m#<X-REF REFID="([^"]+)">([^<]+)</XREF>#g;
    s#<FTN ID="([^"]+)">[^<]+</FTN>#<FTN ID="$1">$data{$1}</FTN>#g;
    print OUT $data;
}
close(IN);
close(OUT);