教えてPerl

http://toro.2ch.net/test/read.cgi/news2/1323135099/933
933 名前：Ｋ５ ◆ZrPJFvslEyUG [sage] 投稿日：2012/01/04(水) 02:57:15.93 ID:tK3RmaGW
>>1-10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
>>1-10000000000000000000000000000000000000000000000000000000000000000000000001
1-10000000000000000000000000000000000000000000000000000000000000000000000001
>>1-1000000000000000000000000000000000000000000000000000

なんだが、こんなコードになっている
# >>nnn
$GB->{FORM}->{'MESSAGE'} =~ s/>>([0-9]+)(?![-\d])/<a href="..\/test\/read.cgi\/$GB->{FORM}->{'bbs'}\/$GB->{FORM}->{'key'}\/$1" target="_blank">>>$1<\/a>/g;
# >>nnn-nnn
$GB->{FORM}->{'MESSAGE'} =~ s/>>([0-9]+)\-([0-9]+)/<a href="..\/test\/read.cgi\/$GB->{FORM}->{'bbs'}\/$GB->{FORM}->{'key'}\/$1-$2" target="_blank">>>$1-$2<\/a>/g;

これを　>>8000 とかありえない場合は置き換えしないようにするには Perlでどうやって書くの?