my $digits_4 = qr{ (?<!-)\b[0-9]{4}\b(?!-) }xms;
$text =~ s{ ($digits_4) }
          {<a href="apartments.pl?do_what=view&unit=$1"><b>$1</b></a>}xmsg;