1
2
3

my $data = "....";

$data =~ s{<td>}{<td border-right="1">} for 1 ..  $colzaehl -1;

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!