@value = grep { /\b\w+\.\Q$domain\E/ } @DISKD;
@value = grep { /\b[A-Za-z1-9-]+\.\Q$domain\E/ } @DISKD;
@value = grep { /\b^(.*?)\.\Q$domain\E/ } @DISKD;