Select Code to Download

use strict;
use warnings;

use Modern::Perl;

use Modern::Perl;

...
else {
    say qq|"$word" not found.|;
}

Substring/case-insensitive matches for "a":
Jacob
...
Matthew
Alexander
Andrew