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

##</code><code>##

next unless
        substr($file,0,6) eq 'AB DAT'
    and substr($file,-4)  eq '.doc'
;