$var1 =~ s!(?<=<td>)(\d{6})(?=</td>)!<a href="http://www.domain.xy/script.pl?action=run;cuno=$1" target="_blank">$1</a>!;