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

##</code><code>##

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