grep defined && length, split /\s+|(\S*\(.*?\)\S*)/, $string