@parts = grep /\w/, (split /\"([^\"]*)\"|\s/, $string);