Help for this page
$_ =~ s/<figr n="(.+?)">(.*?)<\/figr>/<FIGIND NUM="$fno" ID="FG.$figno +">$2<\/FIGIND>/g;
$_ =~ s/<figr n="($fno)">(.*?)<\/figr>/<FIGIND NUM="$fno" ID="FG.$f +igno">$2<\/FIGIND>/g;