$title =~ s{\s}{_}g; 
    $title =~ s{\/}{_}g; 
    $title =~ s{\W}{}g;
    $title =~ s{_}{-}g;
    return lc($title);