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

##</code><code>##

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