my $currentChar = substr( $string, $n, 1 );
if( $currentChar eq 'C' ) {
    $currentChar = substr( $string, ++$n, 1 );
    if( $currentChar eq '1' ) {
        $currentChar = substr( $string, ++$n, 1 );
        if( $currentChar eq 'A' ) {
        ...
        ...
        ...
        ...

        elsif( $currentChar eq 'B'
        ...
        ...
        ...
        ...
    }
    elsif( $currentChar eq '2' ) {
        ...
        ...
        ...
        ...
    }
    elsif( $currentChar eq '3' ) {
        ...
        ...
        ...
        ...
    }
    elsif( $currentChar eq '4' ) {
        ...
        ...
        ...
        ...
    }
    elsif( $currentChar eq '5' ) {
        ...
        ...
        ...
        ...
    }
    elsif( $currentChar eq '6' ) {
        ...
        ...
        ...
        ...
    }
    elsif( $currentChar eq '7' ) {
        ...
        ...
        ...
        ...
    }
    elsif( $currentChar eq '8' ) {
        ...
        ...
        ...
        ...
    }
    elsif( $currentChar eq '9' ) {
        ...
        ...
        ...
        ...
    }
    else {
        die "The second char was not in range '1' thru '9';
    }
}
else {
   die "The first character didn't match 'C'";    
}