##
18:49 >perl 1939_SoPW.pl
Module name = >MODULE C17<
18:49 >
##
##
if (defined($MODULE_NAME) && ($MODULE_NAME =~ / ^ (.+) \( /x))
{
my $module_name = $1;
$module_name =~ s/ \s+ $ //x;
print "Module name = >$module_name<\n";
}