next unless $file =~ /^AB DAT.*\.doc$/;