@array = $line =~/(CORP|DEOGD001)+?/g/;