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