next if($file !~ /^AB\sDAT.*\.doc$/i);
                          ^