perl -ne 'print ++$n,". $1 " if /^name:\s*(.*)/; print $1,$/ if /^date:\s*(.*)/'

##</code><code>##

perl -ne "print ++$n,qq(. $1 ) if /^name:\s*(.*)/; print $1,$/ if /^date:\s*(.*)/"