Подскажите regexp для perl

([0-1]?[0-9]{,3}|2000)

> ([0-1]?[0-9]{,3}|2000)

Перед запятой единицу не дописал.

Спасибо, но длинновато, я думал может что попроще есть?

А на фига перед запятой единица???

Чтоб ловилось от 1-й до 3-х цифр.
$ perl -we '{ $_="1234";/^([0-1]?[0-9]{1,3}|2000)$/;print "$1\n" }'
1234
$ perl -we '{ $_="1234";/^([0-1]?[0-9]{,3}|2000)$/;print "$1\n" }'
Use of uninitialized value in concatenation (.) or string at -e line 1.