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