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