$str =~ /^.{$pos}
             ( (?<= (?= \D | ^ | (?1) (\d\d) ) ) )
             (\d+)
            /x;