$text =~ s/(<td>)((?:(?!<td>).)*)3((?:(?!<\/td>).)*)/<td>$1$2a$3/;
[download]

Yes! Thank you! It is what I wanted so much :) *I corrected your code a bit, and it seems to work well*