while( defined (my $line = <FH>) )
{  
   chomp $line;                
   # my @new = grep /[CORP|DEOGD001]+?/g/,@array;
   my @new = grep /(CORP|DEOGD001)+?/g, @array;
.
.
.
usw
}