sub tye2 {
    my( $sentence, $wantedLetters )= @_;
    while( $wantedLetters =~ /(.)/gs ) {
        return 0 if -1 == index($sentence,$1);
    }
    return 1;
}

##</code><code>##

sub tye1 {
    my( $sentence, $wantedLetters )= @_;
    -1 == index($sentence,$1) && return 0
        while( $wantedLetters =~ /(.)/gs );
    return 1;
}

##</code><code>##

sub tye0 {
    -1 == index( $_[0], $1 )  &&  return 0
        while( $_[1] =~ /(.)/gs );
    return 1;
}