perl -n000 -e" s[name: ([^\n]+)\ndate: ([^\n]+)\n.*][$1 $2]; chomp; print qq[$_\n]; " <file >newfile