my $digits_4 = qr{ \b \d{4} \b }xms;
$text =~ s{ ($digits_4) }
          {<a href="script.pl?do_what=view&unit=$1"><b>$1</b></a>}xmsg;