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

or, for Win32:

perl -ne "print ++$n,qq(. $1 ) if /^name:\s*(.*)/; print $1,$/ if /^da
+te:\s*(.*)/"
[download]

                - tye