Perl regexp

c1r([1..2]?[0..9]|3[0..2])
как-то так.

c1r9, c1r25 (:

c1r([1-9]|[1-2][0-9]|3[0-2])

Починено.

хм. да.

Окончательно починено:

(all-matches «[1-9]|[1-2][0-9]|3[0-2]» «c1r1»)

Спасибо за помощь, но хотелось что-нибудь простого и читаемого:
c1r(\d+) if ($0 <= 32)

Пытаюсь встроить в шаблон template-toolkit, а там нужна читаемость.

Одними регекспами валидацию не всегда можно сделать потому что регекспы работают на уровне символов(групп символов) а не чисел и слов.