c:\>perl -le "print $_, qq(\t), /\.[docx|pdf]$/ ||0 for qw(.pdf .docx .p .d .f .d .o .c .x .|);"
.pdf    0
.docx   0
.p      1
.d      1
.f      1
.d      1
.o      1
.c      1
.x      1
.|      1

##</code><code>##

c:\>perl -le "print $_, qq(\t), /\.(?:docx|pdf)$/ ||0 for qw(.pdf .docx .p .d .f .d .o .c .x .|);"
.pdf    1
.docx   1
.p      0
.d      0
.f      0
.d      0
.o      0
.c      0
.x      0
.|      0