Select Code to Download

sub findtext
{
...
        }
    }
}

    my %input;
    $input{$_} = undef for @$inputs;  # make this a hash
...
        # word along with "N" words of surrounding context
        # (left as an exercise...)
    }