Select Code to Download

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

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