>>663
Perl なら

s{(?<=<table>)(.+?)(?=</table>)}
　{ (my $str = $1) =~ s|,|</td><td>|g; $str }eg;