use strict;
use warnings;

my @input = (
    "Figure <xref ref-type=\"fig\" rid=\"F1\">1</xref> Figure <xref ref-type=\"fig\" rid=\"F1\">1</xref>",
    "Figure <xref ref-type=\"fig\" rid=\"F2\">2</xref>",
    "Figure <xref ref-type=\"fig\" rid=\"F3\">3</xref>"
);
my $isize = scalar(@input);
my ($same , $dx1 , $dx2);
for (my $il = 0; $il < $isize; $il++ ) {
    $input[$il] =~ s/<xref ref-type="fig" rid=/\\protect\\customizeref{/g;
    if ( $input[$il] =~ /\\protect\\customizeref{(.*?)<\/xref>/ ) {

        # $input[$il] =~ /<xref ref-type=" fig " rid=" ( . *? ) < \/xref>/;
        #print("$1\n");
        $_    = $1;
        $same = $1;
        $dx1  = /"(.*)"/;
        $dx1  = $1;
        $dx2  = />(.*)/;
        $dx2  = $1;
        #print("$dx1\n");
        #print("$dx2\n");
        $input[$il] =~
        s/\\protect\\customizeref{$same<\/xref>/\\protect\\customizeref{$dx1}{Figures}{}/g;
        $input[$il] =~ s/$same/$dx1}{Figures}{}/g;
}

if ( ( defined $same ) and ( defined $dx1 ) ) {
    #print(">$same\n");
    $input[$il] =~ s/$same<\/xref>/$dx1}{Figures}{}/g;
}
print $input[$il], "\n";
}