$string =~ s/ \(.*\)//g;
                $string =~ s/ {1,}/_/g;
                $string = lc ($string);