- while( $template =~ s/$re/$1\cA$i\cA$5/g ) {
+ while( $template =~ s/$re/$1\cA\cC\cA$5/g ) {

@@ and after the croak "Bad range"
+ $template=~s/\cC/$start/;

- my ($count, @list) = ($state->{nBatch}, ());
+ my ($count, @list) = ($state->{batch}, ());

- $iVal = $ranges[$range]{last} = 0;
+ $iVal = 0;$ranges[$range]{last} = 1;