sub find_words {
print "Here are the answers!\n\n";

        while (@input2) {
                $in = shift(@input2);
                $in =~ s{($regexp)}{ **\U$1\E** }g;
                print "$in\n";
        }
exit;
}