@array = $line =~/[CORP|DEOGD001]+?/g/;