Select Code to Download

sub tye2 {
    my( $sentence, $wantedLetters )= @_;
...
    }
    return 1;
}

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

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