my $word = qr/\b(directory|file|age|action)\b/;