% perl -le 'print $& if shift =~ /(\d)(((??{$^N + 1})))+/' 4321234
1234
%