sub readDRC ( ) {
my ( $file  , $flag ) = @_ ;

##</code><code>##

for my $item (@drc::file) {
   if ($item =~ m/^\s*\Module:/i ) { $moduleName = getModuleName($item); }
   ...
}