my  $s2 = '$endcod = index($s2eq, $end1 || $end2 || $end3, $s2tartcod);';

    while( $s2 =~ m/(end|dex|art)/g ) {
        printf "  Found '%s' at %d\n", $1, pos($s2);
    }