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

##</code><code>##

   $_ =~ s/<figr n="($fno)">(.*?)<\/figr>/<FIGIND NUM="$fno" ID="FG.$figno">$2<\/FIGIND>/g;