http://www.perlmonks.org?node_id=1002523


in reply to Re^2: Determining if I have a particular Friday off
in thread Determining if I have a particular Friday off

   my $mod = (Weeks_in_Year($ARGV[1]) eq 52) ? 2 : 1;
   ...
   ($present ? "DO" : "DID") . ($week % $mod ? "" : "N'T")

[download]

Hmmm. When $mod is 1, % is always zero - and you "DON'T/DIDN'T" have off.

In Section Cool Uses for Perl