in reply to Reg Expression on file name

next if /^AB\sDAT.*\.doc/i;

In Section Seekers of Perl Wisdom