while ($str =~ /<tag1[^>]*>\s*<tag2>\s*<tag3>([^<]*)<\/endtag3>/gsi) {
            ++$a;
            $b = $1;
            $b = $b . " [ $c-$a]";
            $str =~ s/(<tag1[^>]*>\s*<tag2>\s*)<tag3>[^<]*<\/endtag3>/$1<tag3>$b<\/endtag3>/si;
}