my $data = q|...|;
my $anzahl = 3;
$data =~ s/(<td>)/$anzahl-- > 0 ? '<td border-right="1">' : $1/ge;