perl -lne '$s += /^\w+(?:\047\w+)?\s+\w+(?:\047\w+)?/\s/ }{ print $s' file.txt