Try this modified code

     my @abbr=qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
     if ($abbr[$mon]=~/Jan|Feb|May|Jul|Sep|Oct|Nov|Dec/)
     {
     # $response writes are old code debug write outs.. $Response->wri
++te("$abbr[$mon] $mday");
     if (($abbr[$mon]=~/Jan/) && ($mday=~/^(1|18)$/))
     {
     #close chat for these days.. 
      $str.="</config>";
     return $str;
     #$response->write("Happy New Year");
     }
[download]