in reply to Last day of the month. Any shorter

TIMTWOTDI. This one via Time::Piece, which relies on localtime: 
perl -MTime::Piece -le'$t=localtime->strptime(shift,"%Y%m%d");print "l
+ast day" if $t->mday == $t->month_last_day' 20010731

[download]
Haven't tested this, but this one-liner should work for Win32 systems: 
perl -MTime::Piece -le"$t=localtime->strptime(shift,'%Y%m%d');print 'l
+ast day' if $t->mday == $t->month_last_day" 20010731

[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

In Section Meditations