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