my $word = do {
    local $/;
    <WORDSOUND>
};
my $offset = index $word, $letter;