if (defined($MODULE_NAME) && ($MODULE_NAME =~ / ^ (.+) \( /x))  
{  
    my $module_name =  $1;
       $module_name =~ s/ \s+ $ //x;
    print "Module name = >$module_name<\n";  
}