cal 3 2009 | perl -anle '$.==1&&do{print};@F=unpack"A3"x7,$_;$.>2&&$F[2]=~m/^\s*\d+$/&&++$a==2&&print$F[2];'