( $pos = index $str , $p , $pos ) >= 0 and $once++ ;