sub nthPos
{
    my $s= \shift @_;
    my( $p, $n )= @_;
    local( pos($$s) );
    0   while   $$s =~ /\Q$p/g  &&  0 < --$n;
    return   if  0 < $n;
    return  1+pos($$s);
}