perl -n0e 'while (/name: (.*)\ndate: (.*)/g){$cnt++;print "$cnt. $1 $2\n"}'