my $data = "....";

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