added perl regex for DB_HOST and set main menu to case statments