Select Code to Download

use strict;
use warnings;
...

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

<tr><td>1</td><td>2</td>qw<font>a</font></td><td>4</td><tr>