my ($y,$m,$d) = unpack "A4A2A2", $ARGV[0]; # ven'tatsu!
$d == 30+($m&1^$m>7)-($m==2)*(2-!($y%4||(!($y%100)&&$y%400)))
  or print "not month end day\n";
[download]