$abspath =~ m{ / [\w-]+ \.(txt|do[ct]|pdf|vsd|xl[st]|.p[op]t|mpp) \z }msx;