Perlito5 - regex - capture counter