$ perl -Mstrict -Mwarnings -E '
> my $last;
> my $pos;
> my $stream = q{0123??6789??????};
> map { $last = $pos unless m{\?\?}; $pos ++ }
>    unpack q{(a2)*}, $stream;
> say $last;'
4
$