Select Code to Download

sub canonize { return join '', sort split //, lc $_[0]; }

...
} else {
   print("No matches found.\n");
}

sub canonize { return join '', sort split //, lc $_[0]; }

...
if (!$found) {
   print("No matches found.\n");
}