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