$data =~ s/<td>(?=.*<td>)/<td border-right="1">/g;