use strict;
use warnings;

@ARGV = <*.doc>;
while ( <> ) {
    print scalar <> if /^Customer ID: Yes/;
}