sub match_index {
   my $pos;
   return  
      (($pos =index($_[0],$_[1]))<0) ?  0
     : ($pos == 0)                   ? '0 but true'
     :                                  $pos;
}