sub subst_str {
    my $match = shift;
    my $b = ...

    return "$match<tag3>$b</endtag3>";
}

..
$str =~ s/(<tag1[^>]*>\s*<tag2>\s*)<tag3>[^<]*<\/endtag3>/subst_str($1)/gsie;   # note the /e