Select Code to Download

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

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