...
next if (substr($date->string,5,5) ne substr($today->string,5,5)) {
...