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