my $regex = ...;

if (@matchwords == grep { /$regex/ } @allwords) { ...