perl5.8です
1〜685の数字にマッチするように

6[0-8][0-5]|[1-5]\d\d|[1-9]\d|[1-9]

としてみたのですが、スマートというか
模範となるような書き方があったら教えてください