in reply to Short or Long Hand
if ($day % 6) { # ... } [download]
But that will also be true if $day is 12, 18, etc...
"The first rule of Perl club is you do not talk about Perl club." -- Chip Salzenberg